(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    229700,       5561]
NotebookOptionsPosition[    227875,       5524]
NotebookOutlinePosition[    228269,       5540]
CellTagsIndexPosition[    228226,       5537]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Replication", " ", "code", " ", "for", " ", "the", " ", "figures", " ", 
    "in", " ", 
    "\"\<Private Renegotiations and Government Interventions in Credit Chains\
\>\"", " ", "by", " ", "Vincent", " ", "Glode", " ", "and", " ", "Christian", 
    " ", "Opp"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "The", " ", "cells", " ", "in", " ", "this", " ", "workbook", " ", "have", 
    " ", "to", " ", "be", " ", "run", " ", "sequentially"}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Figure", " ", "2"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Panel", " ", "A"}], " ", "-", " ", 
      RowBox[{"Plot", " ", "of", " ", "d3", 
       RowBox[{"(", "d2", ")"}]}]}], ";", " ", 
     RowBox[{"Equation", " ", "12"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{"(*", " ", 
   RowBox[{"Define", " ", "CDF", " ", "and", " ", "PDF"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"F2", "[", 
      RowBox[{"v2_", ",", "v2min_", ",", "v2max_"}], "]"}], ":=", 
     RowBox[{"CDF", "[", 
      RowBox[{
       RowBox[{"UniformDistribution", "[", 
        RowBox[{"{", 
         RowBox[{"v2min", ",", "v2max"}], "}"}], "]"}], ",", "v2"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"f2", "[", 
      RowBox[{"v2_", ",", "v2min_", ",", "v2max_"}], "]"}], ":=", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"UniformDistribution", "[", 
        RowBox[{"{", 
         RowBox[{"v2min", ",", "v2max"}], "}"}], "]"}], ",", "v2"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"F3", "[", 
      RowBox[{"v3_", ",", "v3min_", ",", "v3max_"}], "]"}], ":=", 
     RowBox[{"CDF", "[", 
      RowBox[{
       RowBox[{"UniformDistribution", "[", 
        RowBox[{"{", 
         RowBox[{"v3min", ",", "v3max"}], "}"}], "]"}], ",", "v3"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"f3", "[", 
      RowBox[{"v3_", ",", "v3min_", ",", "v3max_"}], "]"}], ":=", 
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"UniformDistribution", "[", 
        RowBox[{"{", 
         RowBox[{"v3min", ",", "v3max"}], "}"}], "]"}], ",", "v3"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Define", " ", "bounds", " ", "of", " ", "the", " ", "endowment", " ", 
     "asset", " ", "value", " ", "distributions"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2minval", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3minval", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2maxval", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3maxval", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Agent", " ", 
      RowBox[{"2", "'"}], "s", " ", "optimal", " ", "choice", " ", "of", " ", 
      "d3", " ", "given", " ", "expectations", " ", "about", " ", "d2"}], ";",
      " ", 
     RowBox[{
      RowBox[{
      "obtained", " ", "from", " ", "first", " ", "order", " ", 
       "conditions"}], " ", "+", " ", 
      RowBox[{
      "conjecture", " ", "and", " ", "verify", " ", "of", " ", "relevant", 
       " ", 
       RowBox[{"roots", "."}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"d3sol", "[", "d2_", "]"}], ":=", 
     TagBox[GridBox[{
        {"\[Piecewise]", GridBox[{
           {"1", 
            RowBox[{"d2", "\[LessEqual]", "1"}]},
           {
            RowBox[{
             FractionBox["1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "2"}], "+", "d2"}], ")"}], "2"], "+", 
               RowBox[{"2", " ", "d2"}]}], ")"}]}], 
            RowBox[{"1", "<", "d2", "<=", "2"}]},
           {
            RowBox[{
             FractionBox["1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", " ", "d2"}]}], ")"}]}], 
            RowBox[{"2", "<", "d2", "<=", 
             FractionBox["5", "2"]}]},
           {
            FractionBox[
             RowBox[{"2", "+", "d2"}], "3"], 
            RowBox[{
             FractionBox["5", "2"], "<", "d2", "<=", "4"}]},
           {"0", 
            TagBox["True",
             "PiecewiseDefault",
             AutoDelete->True]}
          },
          AllowedDimensions->{2, Automatic},
          Editable->True,
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.84]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}},
          Selectable->True]}
       },
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.35]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      "Piecewise",
      DeleteWithContents->True,
      Editable->False,
      SelectWithContents->True,
      Selectable->False,
      StripWrapperBoxes->True]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Plot", " ", "instructions"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Instructions", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
            RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
            RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
            RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}]}], "}"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"300", ",", "200"}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"True", ",", "None"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"True", ",", "None"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Joined", "\[Rule]", "True"}]}], "}"}]}], ";"}], " ", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Grid", " ", "size", " ", "for", " ", "plot"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Deltax", "=", 
     RowBox[{"4", "/", "27"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Calculate", " ", "discrete", " ", "points", " ", "for", " ", "plot"}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlist100", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"d3sol", "[", "x", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0000", ",", 
         RowBox[{"v2maxval", "+", "v3maxval"}], ",", "Deltax"}], "}"}]}], 
      "]"}]}], ";", " ", 
    RowBox[{
     RowBox[{"fxlist100", "[", 
      RowBox[{"[", "28", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{"4", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Plot", " ", "d3", 
     RowBox[{"(", "d2", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "fxlist100", "}"}], ",", "Instructions", ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<\!\(\*SubscriptBox[\(d\), \
\(3\)]\)(\!\(\*SubscriptBox[OverscriptBox[\(d\), \(^\)], \(2\)]\))\>\"", ",", 
            
            RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], 
          ",", "All"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<\!\(\*SubscriptBox[OverscriptBox[\(d\), \(^\)], \(2\)]\)\>\"",
             ",", 
            RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], 
          ",", "All"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8905706631076202`*^9, 3.8905706664693317`*^9}, {
   3.8905711966193666`*^9, 3.8905712359696693`*^9}, {3.890571533309927*^9, 
   3.890571561841092*^9}, {3.8905716256949253`*^9, 3.890571625846796*^9}, {
   3.8905794514149427`*^9, 3.8905794517215242`*^9}, 3.890579645233152*^9, {
   3.890579686215363*^9, 3.890579733840576*^9}, {3.890579966317861*^9, 
   3.8905799718766727`*^9}, 3.890581196555153*^9, {3.890814016387349*^9, 
   3.890814016778022*^9}, {3.8910729685256567`*^9, 3.891072968526834*^9}, {
   3.891073001160857*^9, 3.89107302956678*^9}, {3.891073261420755*^9, 
   3.8910732616119833`*^9}, {3.891075225523391*^9, 3.891075384383367*^9}, {
   3.891075418888713*^9, 3.891075498828442*^9}, {3.891425249744575*^9, 
   3.89142525019287*^9}, {3.891425306936614*^9, 3.891425342488409*^9}, 
   3.8914253816568003`*^9, 3.89142782971214*^9, {3.891608385445787*^9, 
   3.891608453777774*^9}, 
   3.8920284845611267`*^9},ExpressionUUID->"a98e5ee5-2c33-4027-a204-\
8cba4f3d2bd5"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.025], 
     AbsoluteThickness[2.2], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQjQo+2GfoL9zb8u2QPSr/Epwvc7wQiO6gyT+C852q
Od+qbnmOpv4NnA+Wnv7B/gM334x0Rpj+T/Z1WvE3ZZU/2IeCwVeoPph53+3P
PHRNTH77wR6sXOiXfV/V7eWfpn6EqvtjnzTR6ENJ9id7sPEX/tm7q3lbvcr9
DLWPwQFCf7EvAmtgdIDQX6H2MzlA6G/2cWALWRxeXvuzwUPyB9Q9rA4WfY+B
6Ie9D1ghm0OH66kDl9f+hLqP3QGsvOKXPUQdhwPIFXFOv6Hu5XIoza6LWMLz
x14NLM7tcEQp9QHQDqj7eRyEbnkDTf5rD6F5HRLB/vkH9Q+fA8j0Xab/oeEo
4ACNMAcADDe7sQ==
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, None}, {True, None}},
  FrameLabel->{{
     FormBox[
      TagBox[
       StyleBox[
       "\"\\!\\(\\*SubscriptBox[\\(d\\), \
\\(3\\)]\\)(\\!\\(\\*SubscriptBox[OverscriptBox[\\(d\\), \\(^\\)], \
\\(2\\)]\\))\"", FontSize -> 13, Italic, StripOnInput -> False], HoldForm], 
      TraditionalForm], 
     FormBox[
      TagBox["All", HoldForm], TraditionalForm]}, {
     FormBox[
      TagBox[
       StyleBox[
       "\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(d\\), \\(^\\)], \
\\(2\\)]\\)\"", FontSize -> 13, Italic, StripOnInput -> False], HoldForm], 
      TraditionalForm], 
     FormBox[
      TagBox["All", HoldForm], TraditionalForm]}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{300, 200},
  LabelStyle->Directive[FontFamily -> "Times", FontSize -> 13],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 4.}, {0, 2.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.890579655219467*^9, 3.890579709771681*^9, 
  3.890579799020199*^9, 3.890581076714579*^9, 3.890581200541893*^9, 
  3.890652565997403*^9, 3.8907415320823708`*^9, 3.8908140359359617`*^9, 
  3.891073024066382*^9, 3.891092819614697*^9, 3.891427832002099*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"599dde3e-af08-4478-bd7c-c011d3af0ba5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Figure", " ", "2"}], ",", " ", 
    RowBox[{
     RowBox[{"Panel", " ", "B"}], " ", "-", " ", 
     RowBox[{"Probability", " ", "Decomposition"}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Probability", " ", "that", " ", "agent", " ", "3", " ", "pays"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent3Pays", "[", "d2expected_", "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"F3", "[", 
        RowBox[{
         RowBox[{"d3sol", "[", "d2expected", "]"}], ",", "v3minval", ",", 
         "v3maxval"}], "]"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "2", " ", "pays", " ", 
     "conditional", " ", "on", " ", "collecting", " ", "d3"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent2PaysCondonCollectingd3", "[", "d2expected_", "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"F2", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d2expected", "-", 
           RowBox[{"d3sol", "[", "d2expected", "]"}]}], ")"}], ",", 
         "v2minval", ",", "v2maxval"}], "]"}]}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "2", " ", "pays", " ", 
     "conditional", " ", "on", " ", "not", " ", "collecting", " ", "d3"}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent2PaysCondonNotCollectingd3", "[", "d2expected_", "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"F2", "[", 
        RowBox[{
         RowBox[{"(", "d2expected", ")"}], ",", "v2minval", ",", "v2maxval"}],
         "]"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Probability", " ", "agent", " ", "2", " ", "pays"}], " ", "*)"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent2Pays", "[", "d2expected_", "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"PrAgent3Pays", "[", "d2expected", "]"}], "*", 
       RowBox[{"PrAgent2PaysCondonCollectingd3", "[", "d2expected", "]"}]}], 
      "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"PrAgent3Pays", "[", "d2expected", "]"}]}], ")"}], "*", 
       RowBox[{
       "PrAgent2PaysCondonNotCollectingd3", "[", "d2expected", "]"}]}]}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Plot", " ", "instructions"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Instructions", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
            RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
            RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
            RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}]}], "}"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"300", ",", "200"}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\[FilledDiamond]", ",", "12"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[FilledCircle]", ",", "12"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[FilledSquare]", ",", "12"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[EmptyRectangle]", ",", "12"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"True", ",", "None"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"True", ",", "None"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Joined", "\[Rule]", "True"}]}], "}"}]}], ";"}], " ", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Grid", " ", "size", " ", "for", " ", "plot"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Deltax", "=", 
     RowBox[{"4", "/", "28"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Calculate", " ", "grid", " ", "points"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlistPr3Pays", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"1", "-", 
          RowBox[{"PrAgent3Pays", "[", "x", "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0", ",", 
         RowBox[{"v2maxval", "+", "v3maxval"}], ",", "Deltax"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlistPr3PaysGiven2Pays", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"1", "-", 
          RowBox[{"PrAgent2PaysCondonCollectingd3", "[", "x", "]"}]}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0", ",", 
         RowBox[{"v2maxval", "+", "v3maxval"}], ",", "Deltax"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlistPr3PaysGiven2DoesntPay", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"1", "-", 
          RowBox[{"PrAgent2PaysCondonNotCollectingd3", "[", "x", "]"}]}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0", ",", 
         RowBox[{"v2maxval", "+", "v3maxval"}], ",", "Deltax"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlistPr2Pays", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"1", "-", 
          RowBox[{"PrAgent2Pays", "[", "x", "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0", ",", 
         RowBox[{"v2maxval", "+", "v3maxval"}], ",", "Deltax"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Plot", " ", "list", " ", "of", " ", "points"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Legended", "[", 
        RowBox[{"fxlistPr2Pays", ",", "\"\<Pr[2 defaults]\>\""}], "]"}], ",", 
       
       RowBox[{"Legended", "[", 
        RowBox[{
        "fxlistPr3PaysGiven2Pays", ",", "\"\<Pr[2 defaults | 3 pays]\>\""}], 
        "]"}], ",", 
       RowBox[{"Legended", "[", 
        RowBox[{
        "fxlistPr3PaysGiven2DoesntPay", ",", 
         "\"\<Pr[2 defaults | 3 defaults]\>\""}], "]"}], ",", 
       RowBox[{"Legended", "[", 
        RowBox[{"fxlistPr3Pays", ",", "\"\<Pr[3 defaults]\>\""}], "]"}]}], 
      "}"}], ",", "Instructions", ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\< \>\"", ",", 
            RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], 
          ",", "All"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<\!\(\*SubscriptBox[OverscriptBox[\(d\), \(^\)], \(2\)]\)\>\"",
             ",", 
            RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], 
          ",", "All"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.890571254726677*^9, 3.890571271093773*^9}, 
   3.890571592543435*^9, {3.890579758569072*^9, 3.890579758973906*^9}, {
   3.890579814572331*^9, 3.890579835285927*^9}, 3.890579977964555*^9, {
   3.891072968531115*^9, 3.891072968532215*^9}, {3.8910730477974043`*^9, 
   3.891073078535922*^9}, {3.891073110552287*^9, 3.8910731688023376`*^9}, {
   3.891073203238344*^9, 3.891073255558913*^9}, {3.891073297702736*^9, 
   3.891073320537839*^9}, {3.8910755089094543`*^9, 3.8910755293957663`*^9}, {
   3.8910758410949993`*^9, 3.891075881097405*^9}, {3.8914252550554533`*^9, 
   3.891425255437088*^9}, {3.8914252985816927`*^9, 3.891425319140836*^9}, {
   3.891427838891523*^9, 3.8914278392722588`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"6be496f7-c564-497c-a1cc-dcadc5016a2c"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, 
       TagBox[{
         Hue[0.67, 0.6, 0.6], 
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBWIQjQ4mqXgC0SF7VP4lOP/2tlwQQpN/BOdDpJ+hqX8N
50PABzT9n+wZAqICVR+524O5k77YM/iD+OX2EPO+2R8wWlJzXm2KPVha5ae9
Alh+uT3E/N/2FoZFhTeCttuDlW/7C1V/BGaPA4S6ANXP6ACx54o9xH4mBw8w
4ybUPGaHHDDjLtQ9LA5xNhErztU8hJrP6sDX+3XhRrsnUPexOaz5q3zJbRvM
3xwOFn2PgegF1D5Oh412Jtfaj72C2sflIMEvtso4/g3UPm6H7P8dWyaufQu1
j8dhDT/IgndQ+3gdbtkr5aZkv4fax+fwrd9D+uat91D7BBxg4QoAh6GopA==

          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$4789, {1}}]& ], 
       TagBox[{
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBWIQjQ4mqXgC0SF7VP4lOP/2tlwQQpN/BOdDpJ+hqX8N
50PABzT9n+B8MHfSFzTzvsH5YGmVn2jm/4bzwcq3/UWzj8EBVT8jnA+xnwnO
h5jHDOdD3MPiwNCWKNGWuMIeYj6rwwRoOEHcx+Yw43nlvOeV56D2cjhEhILA
VXuIfZwOD6DhBrGPy8GA5zAQPbCH2Mft8Mnm/Geb84/tIfbxOMDCEWIfr0PV
PJAFL6H28TmAlX9+A7VPwAEWrgBjQoia
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$4789, {2}}]& ], 
       TagBox[{
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBWIQjQ4mqXgC0SF7VP4lOP/2tlwQQpN/BOdDpJ+hqX8N
50PABzT9n+wnQO0FU5O+QPmX7CHmfbO/AbUXLK3y0x5mL8T83/Ywe8HUtr/2
t1DtdYDZC9HPCOdDzGGC8yHmMcP5EPewwPkQ81nhfIi9bHA+hOZAs48TzT4u
NPu40ezjQbOPF80+PjT7BOB8AO0phwo=
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$4789, {3}}]& ], 
       TagBox[{
         Hue[0.37820393249936934`, 0.6, 0.6], 
         Directive[
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBWIQjQ4mqXgC0SF7VP4lOP/2tlwQQpN/BOdDpJ+hqX8N
50PABzT9n+wZWPWXP3haYg/mTvpi7wDmT7GHmPfN/sFTkT1zmpbbg6VVfkLl
t9hDzP9tLwCUnR58wB6sfNtfqPrjMHscINQFqH5GB4g9V+wh9jM5eIAZN6Hm
MTvkgBl3oe5hcTDgOQxED6DmszpMgPob4j42h0825z/bnH8MtY/DISQUBJ5C
7eN02AINF4h9XA4SbYlA9AJqH7dD1bznlfOev4Tax+NwCxpuEPt4HaxAxn9+
A7WPz2EOSHnlO6h9Ag6wcAUAoS6tkg==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$4789, {4}}]& ]}, {
       TagBox[{
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledDiamond]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.368417, 0.506779, 0.709798], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGCQBWJGIGZiwASTVDyB6JA9Kv8SnH97Wy4Iock/gvMh0s/Q
1L+G8yHgA5r+T/YMAVGBqo/c7cHcSV/sGfxB/HJ7iHnf7A8YLak5rzbFHiyt
8tNeASy/3B5i/m97C8OiwhtB2+3Byrf9hao/ArPHAUJdgOpndIDYc8UeYj+T
gweYcRNqHrNDDphxF+oeFoc4m4gV52oeQs1ndeDr/bpwo90TqPvYHNb8Vb7k
tg3mbw4Hi77HQPQCah+nw0Y7k2vtx15B7eNykOAXW2Uc/wZqH7dD9v+OLRPX
voXax+Owhh9kwTuofbwOt+yVclOy30Pt43P41u8hffPWe6h9Ag6wcAUAkn2o
pg==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$4789, {1}}]& ], 
       TagBox[{
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledCircle]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.880722, 0.611041, 0.142051], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGCQBWJGIGZiwASTVDyB6JA9Kv8SnH97Wy4Iock/gvMh0s/Q
1L+G8yHgA5r+T3A+mDvpC5p53+B8sLTKTzTzf8P5YOXb/qLZx+CAqp8RzofY
zwTnQ8xjhvMh7mFxYGhLlGhLXGEPMZ/VYQI0nCDuY3OY8bxy3vPKc1B7ORwi
QkHgqj3EPk6HB9Bwg9jH5WDAcxiIHthD7ON2+GRz/rPN+cf2EPt4HGDhCLGP
16FqHsiCl1D7+BzAyj+/gdon4AALVwBuHoic
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$4789, {2}}]& ], 
       TagBox[{
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledSquare]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.560181, 0.691569, 0.194885], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGCQBWJGIGZiwASTVDyB6JA9Kv8SnH97Wy4Iock/gvMh0s/Q
1L+G8yHgA5r+T/YToPaCqUlfoPxL9hDzvtnfgNoLllb5aQ+zF2L+b3uYvWBq
21/7W6j2OsDshehnhPMh5jDB+RDzmOF8iHtY4HyI+axwPsReNjgfQnOg2ceJ
Zh8Xmn3caPbxoNnHi2YfH5p9AnA+APgFhww=
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$4789, {3}}]& ], 
       TagBox[{
         Directive[
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[EmptyRectangle]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.922526, 0.385626, 0.209179], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGCQBWJGIGZiwASTVDyB6JA9Kv8SnH97Wy4Iock/gvMh0s/Q
1L+G8yHgA5r+T/YMrPrLHzwtsQdzJ32xdwDzp9hDzPtm/+CpyJ45TcvtwdIq
P6HyW+wh5v+2FwDKTg8+YA9Wvu0vVP1xmD0OEOoCVD+jA8SeK/YQ+5kcPMCM
m1DzmB1ywIy7UPewOBjwHAaiB1DzWR0mQP0NcR+bwyeb859tzj+G2sfhEBIK
Ak+h9nE6bIGGC8Q+LgeJtkQgegG1j9uhat7zynnPX0Lt43G4BQ03iH28DlYg
4z+/gdrH5zAHpLzyHdQ+AQdYuAIArAqtlA==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$4789, {
          4}}]& ]}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{True, None}, {True, None}}, FrameLabel -> {{
        FormBox[
         TagBox[
          StyleBox["\" \"", FontSize -> 13, Italic, StripOnInput -> False], 
          HoldForm], TraditionalForm], 
        FormBox[
         TagBox["All", HoldForm], TraditionalForm]}, {
        FormBox[
         TagBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(d\\), \\(^\\)], \
\\(2\\)]\\)\"", FontSize -> 13, Italic, StripOnInput -> False], HoldForm], 
         TraditionalForm], 
        FormBox[
         TagBox["All", HoldForm], TraditionalForm]}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], ImageSize -> {300, 200}, LabelStyle -> 
     Directive[FontFamily -> "Times", FontSize -> 13], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, PlotRange -> {{0, 4.}, {0, 1.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Pr[2 defaults]\"", "\"Pr[2 defaults | 3 pays]\"", 
       "\"Pr[2 defaults | 3 defaults]\"", "\"Pr[3 defaults]\"", "None", 
       "None", "None", "None"}, "PointLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[FilledDiamond]", FontSize -> 12, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[FilledCircle]", FontSize -> 12, StripOnInput -> False],
                     TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[FilledSquare]", FontSize -> 12, StripOnInput -> False],
                     TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[EmptyRectangle]", FontSize -> 12, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          Directive[FontFamily -> "Times", FontSize -> 13], FontFamily -> 
          "Arial"}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}]}], 
                 "}"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#5, ",", #6, ",", #7, ",", #8}], "}"}]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"\[FilledDiamond]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledCircle]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledSquare]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[EmptyRectangle]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"\[FilledDiamond]", ",", "12"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledCircle]", ",", "12"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledSquare]", ",", "12"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[EmptyRectangle]", ",", "12"}], "}"}]}], 
                   "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
                   "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
                   "}"}]}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.890579760636056*^9, 3.8905798020192633`*^9, 
  3.8905810828572073`*^9, 3.890581205007546*^9, 3.890652569653571*^9, 
  3.890741534953793*^9, 3.890814040332251*^9, 3.891073244723027*^9, 
  3.8910928222964067`*^9, 3.891427846038349*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"72fa7382-4ff0-4797-b8df-b8ef2844722a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Figure", " ", "3"}], " ", "-", " ", 
    RowBox[{"Comparative", " ", "statics", " ", 
     RowBox[{"w", ".", "r", ".", "t", ".", " ", "rho"}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Partial", " ", "solution", " ", "for", " ", "d3", " ", "for", " ", 
      "rho"}], "=", "0.75"}], ",", " ", 
    RowBox[{
     RowBox[{"conditional", " ", "on", " ", "d2"}], " ", ">", " ", 
     RowBox[{"d3", " ", "+", " ", "vmin"}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"d3sol2def075", "[", "d2_", "]"}], ":=", 
     TagBox[GridBox[{
        {"\[Piecewise]", GridBox[{
           {
            RowBox[{
             FractionBox["4", "31"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", 
               RowBox[{"3", " ", "d2"}], "+", 
               SqrtBox[
                RowBox[{"283", "-", 
                 RowBox[{"198", " ", "d2"}], "+", 
                 RowBox[{"40", " ", 
                  SuperscriptBox["d2", "2"]}]}]]}], ")"}]}], 
            RowBox[{
             RowBox[{
              FractionBox["9", "4"], "<", "d2", "<", 
              RowBox[{
               FractionBox["1", "24"], " ", 
               RowBox[{"(", 
                RowBox[{"51", "+", 
                 SqrtBox["33"]}], ")"}]}]}], "||", 
             RowBox[{"d2", "<", 
              FractionBox["9", "4"]}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "d2", "+", 
               SqrtBox[
                RowBox[{"11", "-", 
                 RowBox[{"6", " ", "d2"}], "+", 
                 SuperscriptBox["d2", "2"]}]]}], ")"}]}], 
            RowBox[{
             RowBox[{
              FractionBox["1", "24"], " ", 
              RowBox[{"(", 
               RowBox[{"51", "+", 
                SqrtBox["33"]}], ")"}]}], "<", "d2", "<", 
             FractionBox["5", "2"]}]},
           {
            FractionBox[
             RowBox[{"2", "+", "d2"}], "3"], 
            RowBox[{
             RowBox[{
              FractionBox["5", "2"], "<", "d2", "<", "4"}], "||", 
             RowBox[{"d2", ">", "4"}]}]},
           {"0", 
            TagBox["True",
             "PiecewiseDefault",
             AutoDelete->True]}
          },
          AllowedDimensions->{2, Automatic},
          Editable->True,
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.84]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}},
          Selectable->True]}
       },
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.35]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      "Piecewise",
      DeleteWithContents->True,
      Editable->False,
      SelectWithContents->True,
      Selectable->False,
      StripWrapperBoxes->True]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
      "Partial", " ", "solution", " ", "for", " ", "d3", " ", "for", " ", 
       "rho"}], "=", "0.75"}], ",", " ", 
     RowBox[{
      RowBox[{"conditional", " ", "on", " ", "d2"}], " ", "<", " ", 
      RowBox[{"d3", " ", "+", " ", "vmin"}]}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"d3sol2nodef075", "[", "d2_", "]"}], ":=", 
     TagBox[GridBox[{
        {"\[Piecewise]", GridBox[{
           {
            FractionBox["8", "7"], 
            RowBox[{"d2", "<", 
             FractionBox["9", "7"]}]},
           {
            RowBox[{"4", " ", 
             RowBox[{"(", 
              RowBox[{"6", "+", "d2", "-", 
               SqrtBox[
                RowBox[{"31", "+", 
                 RowBox[{"14", " ", "d2"}]}]]}], ")"}]}], 
            RowBox[{
             RowBox[{
              FractionBox["9", "7"], "<", "d2", "<", 
              FractionBox["3", "2"]}], "||", 
             RowBox[{
              FractionBox["3", "2"], "<", "d2", "<", 
              FractionBox["33", "14"]}]}]},
           {
            RowBox[{
             FractionBox["1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", " ", "d2"}]}], ")"}]}], 
            RowBox[{
             RowBox[{
              FractionBox["33", "14"], "<", "d2", "<", 
              FractionBox["5", "2"]}], "||", 
             RowBox[{"d2", ">", 
              FractionBox["5", "2"]}]}]},
           {"0", 
            TagBox["True",
             "PiecewiseDefault",
             AutoDelete->True]}
          },
          AllowedDimensions->{2, Automatic},
          Editable->True,
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.84]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}},
          Selectable->True]}
       },
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.35]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      "Piecewise",
      DeleteWithContents->True,
      Editable->False,
      SelectWithContents->True,
      Selectable->False,
      StripWrapperBoxes->True]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "Full", " ", "Solution", " ", "for", " ", "d3", "  ", "for", " ", 
      "rho"}], "=", "0.75"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"d3sol075", "[", "d2_", "]"}], ":=", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"d3sol2def075", "[", "d2", "]"}], "*", 
        RowBox[{"Boole", "[", 
         RowBox[{"d2", "\[GreaterEqual]", 
          RowBox[{
           RowBox[{"d3sol2def075", "[", "d2", "]"}], "+", "v2minval"}]}], 
         "]"}]}], "+", 
       RowBox[{
        RowBox[{"d3sol2nodef075", "[", "d2", "]"}], "*", 
        RowBox[{"Boole", "[", 
         RowBox[{"d2", "<", 
          RowBox[{
           RowBox[{"d3sol2nodef075", "[", "d2", "]"}], "+", "v2minval"}]}], 
         "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
      "Partial", " ", "solution", " ", "for", " ", "d3", " ", "for", " ", 
       "rho"}], "=", "0.50"}], ",", " ", 
     RowBox[{
      RowBox[{"conditional", " ", "on", " ", "d2"}], " ", ">", " ", 
      RowBox[{"d3", " ", "+", " ", "vmin"}]}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"d3sol2def05", "[", "d2_", "]"}], ":=", 
     TagBox[GridBox[{
        {"\[Piecewise]", GridBox[{
           {
            RowBox[{
             FractionBox["2", "7"], " ", 
             RowBox[{"(", 
              RowBox[{"d2", "+", 
               SqrtBox[
                RowBox[{"63", "-", 
                 RowBox[{"42", " ", "d2"}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["d2", "2"]}]}]]}], ")"}]}], 
            RowBox[{
             RowBox[{
              FractionBox["5", "2"], "<", "d2", "<", 
              RowBox[{"7", "-", 
               RowBox[{"2", " ", 
                SqrtBox["5"]}]}]}], "||", 
             RowBox[{"d2", "<", 
              FractionBox["5", "2"]}]}]},
           {
            RowBox[{
             FractionBox["2", "11"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", 
               RowBox[{"3", " ", "d2"}], "+", 
               SqrtBox[
                RowBox[{"92", "-", 
                 RowBox[{"56", " ", "d2"}], "+", 
                 RowBox[{"9", " ", 
                  SuperscriptBox["d2", "2"]}]}]]}], ")"}]}], 
            RowBox[{
             RowBox[{"7", "-", 
              RowBox[{"2", " ", 
               SqrtBox["5"]}]}], "<", "d2", "<", 
             FractionBox["14", "5"]}]},
           {
            FractionBox[
             RowBox[{"2", "+", "d2"}], "3"], 
            RowBox[{
             RowBox[{
              FractionBox["14", "5"], "<", "d2", "<", "4"}], "||", 
             RowBox[{"d2", ">", "4"}]}]},
           {"0", 
            TagBox["True",
             "PiecewiseDefault",
             AutoDelete->True]}
          },
          AllowedDimensions->{2, Automatic},
          Editable->True,
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.84]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}},
          Selectable->True]}
       },
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.35]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      "Piecewise",
      DeleteWithContents->True,
      Editable->False,
      SelectWithContents->True,
      Selectable->False,
      StripWrapperBoxes->True]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
      "Partial", " ", "solution", " ", "for", " ", "d3", " ", "for", " ", 
       "rho"}], "=", "0.50"}], ",", " ", 
     RowBox[{
      RowBox[{"conditional", " ", "on", " ", "d2"}], " ", "<", " ", 
      RowBox[{"d3", " ", "+", " ", "vmin"}]}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"d3sol2nodef05", "[", "d2_", "]"}], ":=", 
     TagBox[GridBox[{
        {"\[Piecewise]", GridBox[{
           {
            FractionBox["4", "3"], 
            RowBox[{"d2", "<", 
             FractionBox["5", "3"]}]},
           {
            RowBox[{"4", "+", 
             RowBox[{"2", " ", "d2"}], "-", 
             RowBox[{"2", " ", 
              SqrtBox[
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"6", " ", "d2"}]}]]}]}], 
            RowBox[{
             RowBox[{
              FractionBox["5", "3"], "<", "d2", "<", "2"}], "||", 
             RowBox[{"d2", ">", "2"}]}]},
           {"0", 
            TagBox["True",
             "PiecewiseDefault",
             AutoDelete->True]}
          },
          AllowedDimensions->{2, Automatic},
          Editable->True,
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.84]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}},
          Selectable->True]}
       },
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.35]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      "Piecewise",
      DeleteWithContents->True,
      Editable->False,
      SelectWithContents->True,
      Selectable->False,
      StripWrapperBoxes->True]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "Full", " ", "Solution", " ", "for", " ", "d3", "  ", "for", " ", 
      "rho"}], "=", "0.50"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"d3sol05", "[", "d2_", "]"}], ":=", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"d3sol2def05", "[", "d2", "]"}], "*", 
        RowBox[{"Boole", "[", 
         RowBox[{"d2", "\[GreaterEqual]", 
          RowBox[{
           RowBox[{"d3sol2def05", "[", "d2", "]"}], "+", "v2minval"}]}], 
         "]"}]}], "+", 
       RowBox[{
        RowBox[{"d3sol2nodef05", "[", "d2", "]"}], "*", 
        RowBox[{"Boole", "[", 
         RowBox[{"d2", "<", 
          RowBox[{
           RowBox[{"d3sol2nodef05", "[", "d2", "]"}], "+", "v2minval"}]}], 
         "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
      "Partial", " ", "solution", " ", "for", " ", "d3", " ", "for", " ", 
       "rho"}], "=", "0.25"}], ",", " ", 
     RowBox[{
      RowBox[{"conditional", " ", "on", " ", "d2"}], " ", ">", " ", 
      RowBox[{"d3", " ", "+", " ", "vmin"}]}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"d3sol2def025", "[", "d2_", "]"}], ":=", 
     TagBox[GridBox[{
        {"\[Piecewise]", GridBox[{
           {
            RowBox[{
             FractionBox["4", "23"], " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", "d2", "+", 
               SqrtBox[
                RowBox[{"211", "-", 
                 RowBox[{"134", " ", "d2"}], "+", 
                 RowBox[{"24", " ", 
                  SuperscriptBox["d2", "2"]}]}]]}], ")"}]}], 
            RowBox[{
             RowBox[{
              RowBox[{"4", " ", 
               SqrtBox["21"]}], "+", "d2"}], "<", "21"}]},
           {
            RowBox[{
             FractionBox["4", "39"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", 
               RowBox[{"5", " ", "d2"}], "+", 
               SqrtBox[
                RowBox[{"316", "-", 
                 RowBox[{"176", " ", "d2"}], "+", 
                 RowBox[{"25", " ", 
                  SuperscriptBox["d2", "2"]}]}]]}], ")"}]}], 
            RowBox[{
             RowBox[{
              FractionBox["11", "4"], "<", "d2", "<", 
              FractionBox["10", "3"]}], "||", 
             RowBox[{
              RowBox[{"21", "-", 
               RowBox[{"4", " ", 
                SqrtBox["21"]}]}], "<", "d2", "<", 
              FractionBox["11", "4"]}]}]},
           {
            FractionBox[
             RowBox[{"2", "+", "d2"}], "3"], 
            RowBox[{
             RowBox[{
              FractionBox["10", "3"], "<", "d2", "<", "4"}], "||", 
             RowBox[{"d2", ">", "4"}]}]},
           {"0", 
            TagBox["True",
             "PiecewiseDefault",
             AutoDelete->True]}
          },
          AllowedDimensions->{2, Automatic},
          Editable->True,
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.84]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}},
          Selectable->True]}
       },
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.35]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      "Piecewise",
      DeleteWithContents->True,
      Editable->False,
      SelectWithContents->True,
      Selectable->False,
      StripWrapperBoxes->True]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
      "Partial", " ", "solution", " ", "for", " ", "d3", " ", "for", " ", 
       "rho"}], "=", "0.25"}], ",", " ", 
     RowBox[{
      RowBox[{"conditional", " ", "on", " ", "d2"}], " ", "<", " ", 
      RowBox[{"d3", " ", "+", " ", "vmin"}]}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"d3sol2nodef025", "[", "d2_", "]"}], ":=", 
     TagBox[GridBox[{
        {"\[Piecewise]", GridBox[{
           {
            FractionBox["8", "5"], 
            RowBox[{"d2", "<", 
             FractionBox["11", "5"]}]},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["4", "9"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "-", 
               RowBox[{"3", " ", "d2"}], "+", 
               SqrtBox[
                RowBox[{
                 RowBox[{"-", "41"}], "+", 
                 RowBox[{"30", " ", "d2"}]}]]}], ")"}]}], 
            RowBox[{
             RowBox[{
              FractionBox["11", "5"], "<", "d2", "<", 
              FractionBox["5", "2"]}], "||", 
             RowBox[{"d2", ">", 
              FractionBox["5", "2"]}]}]},
           {"0", 
            TagBox["True",
             "PiecewiseDefault",
             AutoDelete->True]}
          },
          AllowedDimensions->{2, Automatic},
          Editable->True,
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.84]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}},
          Selectable->True]}
       },
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.35]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      "Piecewise",
      DeleteWithContents->True,
      Editable->False,
      SelectWithContents->True,
      Selectable->False,
      StripWrapperBoxes->True]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "Full", " ", "Solution", " ", "for", " ", "d3", "  ", "for", " ", 
      "rho"}], "=", "0.25"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"d3sol025", "[", "d2_", "]"}], ":=", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"d3sol2def025", "[", "d2", "]"}], "*", 
        RowBox[{"Boole", "[", 
         RowBox[{"d2", "\[GreaterEqual]", 
          RowBox[{
           RowBox[{"d3sol2def025", "[", "d2", "]"}], "+", "v2minval"}]}], 
         "]"}]}], "+", 
       RowBox[{
        RowBox[{"d3sol2nodef025", "[", "d2", "]"}], "*", 
        RowBox[{"Boole", "[", 
         RowBox[{"d2", "<", 
          RowBox[{
           RowBox[{"d3sol2nodef025", "[", "d2", "]"}], "+", "v2minval"}]}], 
         "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Plot", " ", "Instructions"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Instructions", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
            RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
            RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
            RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}]}], "}"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"300", ",", "200"}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\[FilledDiamond]", ",", "12"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[FilledCircle]", ",", "12"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[FilledSquare]", ",", "12"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[EmptyRectangle]", ",", "12"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"True", ",", "None"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"True", ",", "None"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Joined", "\[Rule]", "True"}]}], "}"}]}], ";"}], "  ", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Grid", " ", "points", " ", "for", " ", "graphs"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Deltax", "=", 
     RowBox[{"4", "/", "27"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlist25", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"d3sol025", "[", "x", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0000", ",", 
         RowBox[{"v2maxval", "+", "v3maxval"}], ",", "Deltax"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fxlist25", "[", 
      RowBox[{"[", "28", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{"4", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlist50", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"d3sol05", "[", "x", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0000", ",", 
         RowBox[{"v2maxval", "+", "v3maxval"}], ",", "Deltax"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fxlist50", "[", 
      RowBox[{"[", "28", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{"4", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlist75", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"d3sol075", "[", "x", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0000", ",", 
         RowBox[{"v2maxval", "+", "v3maxval"}], ",", "Deltax"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fxlist75", "[", 
      RowBox[{"[", "28", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{"4", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlist100", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"d3sol", "[", "x", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0000", ",", 
         RowBox[{"v2maxval", "+", "v3maxval"}], ",", "Deltax"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fxlist100", "[", 
      RowBox[{"[", "28", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{"4", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", "Plot", " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Legended", "[", 
        RowBox[{"fxlist25", ",", "\"\<\[Rho]=0.25\>\""}], "]"}], ",", 
       RowBox[{"Legended", "[", 
        RowBox[{"fxlist50", ",", "\"\<\[Rho]=0.50\>\""}], "]"}], ",", 
       RowBox[{"Legended", "[", 
        RowBox[{"fxlist75", ",", "\"\<\[Rho]=0.75\>\""}], "]"}], ",", 
       RowBox[{"Legended", "[", 
        RowBox[{"fxlist100", ",", "\"\<\[Rho]=1.00\>\""}], "]"}]}], "}"}], 
     ",", "Instructions", ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<\!\(\*SubscriptBox[\(d\), \
\(3\)]\)(\!\(\*SubscriptBox[OverscriptBox[\(d\), \(^\)], \(2\)]\))\>\"", ",", 
            
            RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], 
          ",", "All"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<\!\(\*SubscriptBox[OverscriptBox[\(d\), \(^\)], \(2\)]\)\>\"",
             ",", 
            RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], 
          ",", "All"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8905712870701513`*^9, 3.890571309736065*^9}, {
   3.89057158790994*^9, 3.890571589888049*^9}, {3.8905793734833183`*^9, 
   3.890579428017708*^9}, {3.8905795232690687`*^9, 3.89057956701053*^9}, 
   3.8905796098100452`*^9, 3.8905797926260242`*^9, {3.890579841358569*^9, 
   3.890579849422819*^9}, 3.890579982454776*^9, {3.8910729685674334`*^9, 
   3.8910729685792627`*^9}, {3.891073368153206*^9, 3.891073470855564*^9}, {
   3.891073681070064*^9, 3.891073682699615*^9}, {3.891075892193226*^9, 
   3.8910759009778757`*^9}, {3.891075962020194*^9, 3.8910759791643553`*^9}, {
   3.891076056789297*^9, 3.89107613397458*^9}, {3.891092018505351*^9, 
   3.891092200368696*^9}, {3.891092230418456*^9, 3.891092254917448*^9}, {
   3.89109745688282*^9, 3.89109745816302*^9}, {3.891425260759248*^9, 
   3.8914252611802473`*^9}, {3.891425357423518*^9, 3.891425376149534*^9}, {
   3.891427855591384*^9, 3.891427862522909*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"d75517aa-2825-4d67-b122-28bc75cf94c3"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, 
       TagBox[{
         Hue[0.67, 0.6, 0.6], 
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQOzZoLAT/sM/YV7W74dskflX4LzZY4XAtEdNPlH
cL5TNedb1S3P0dS/gfPB0tM/oOn/BOeHgsFXNPO+w/lg5UK/0Mz/A+eDjb/w
D80+BgcYvwisgdEh4FMZU9osmP1MDumLl5+8duSnfRzYQhaHNUW9b/jVfkHd
w+rgfHfzkaObf9n7gDWwOdxJ27x+1fNfUPexO6zcuF/HWfu3vUXfYyDicNj3
8/eOM12/oe7lcqh5J2W3TPSPvRrQdXFO3A5HlFIfvLz2B+p+HgehW95Ak//a
Q2heh8SJRh9Ksv9B/cPnsMFDsmKX6X97SGwJOECjzQEAlETdkQ==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$5515, {1}}]& ], 
       TagBox[{
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQOhYPDVPkN/4d6Wb4fsUfmX4HyZ44VAdAdN/hGc
71TN+VZ1y3M09W/gfLD09A9o+j/B+eg0xLzvcD5YudAvNPP/2Mtc8Vw7PfWr
Pdj4C//st6QtDvqwEmYfg8MDuem6k2W/2ReBNTA6HPne+F909zeo/UwOLSdn
17DUfbePA1vI4lCxit1yedIPqD2sDv5nE/bZfv9h7wPWwObQ4XrqwOW1P6Hu
Y3e49meDh2TFL3uLvsdAxOEAckWc02+oe7kcSrPrIpbw/LFXA4tzOxxRSn3w
8tofqPt5HIRueQNN/msPoXkdEicafSjJ/gf1D58DyPRdpv/tIbEl4ACNNgcA
aR3Fyg==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$5515, {2}}]& ], 
       TagBox[{
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQOTVDyB6JN9hv7CvS3fDtmj8i/B+TLHC4HoDpr8
IzjfqZrzreqW52jq38D5YOnpH9D0f4LzQ8Hgq31D3NKw494w877bXwjPljlR
8skerFzol/0GI8HHamdh5v+xD9jnwaQb9NkebPyFf/YbTD9vS2b8ArWPwWFB
toFxz40v9kVgDYwOCrGPns+4+hVqP5MDhP5mHwe2kMXh5bU/Gzwkf0Ddw+pg
0fcYiH7Y+4AVsjl0uJ46cHntT6j72B3Ayit+2UPUcTiAXBHn9BvqXi6H0uy6
iCU8f+zVwOLcDkeUUh8A7YC6n8dB6JY30OS/9hCa1yFxotGHkux/UP/wOYBM
32X63x4SWwIO0GhzAACx+8hY
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$5515, {3}}]& ], 
       TagBox[{
         Hue[0.37820393249936934`, 0.6, 0.6], 
         Directive[
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQjQo+2GfoL9zb8u2QPSr/Epwvc7wQiO6gyT+C852q
Od+qbnmOpv4NnA+Wnv7B/gM334x0Rpj+T/Z1WvE3ZZU/2IeCwVeoPph53+3P
PHRNTH77wR6sXOiXfV/V7eWfpn6EqvtjnzTR6ENJ9id7sPEX/tm7q3lbvcr9
DLWPwQFCf7EvAmtgdIDQX6H2MzlA6G/2cWALWRxeXvuzwUPyB9Q9rA4WfY+B
6Ie9D1ghm0OH66kDl9f+hLqP3QGsvOKXPUQdhwPIFXFOv6Hu5XIoza6LWMLz
x14NLM7tcEQp9QHQDqj7eRyEbnkDTf5rD6F5HRLB/vkH9Q+fA8j0Xab/oeEo
4ACNMAcADDe7sQ==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$5515, {4}}]& ]}, {
       TagBox[{
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledDiamond]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.368417, 0.506779, 0.709798], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGCQAWJGIGZiQIBZM0Hgp32G/sK9Ld8O2aPyL8H5MscLgegO
mvwjON+pmvOt6pbnaOrfwPlg6ekf0PR/gvNDweArmnnf4XywcqFfaOb/gfPB
xl/4h2YfgwOMXwTWwOgQ8KmMKW0WzH4mh/TFy09eO/LTPg5sIYvDmqLeN/xq
v6DuYXVwvrv5yNHNv+x9wBrYHO6kbV6/6vkvqPvYHVZu3K/jrP3b3qLvMRBx
OOz7+XvHma7fUPdyOdS8k7JbJvrHXg3oujgnbocjSqkPXl77A3U/j4PQLW+g
yX/tITSvQ+JEow8l2f+g/uFz2OAhWbHL9L89JLYEHKDR5gAAnvzdkw==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$5515, {1}}]& ], 
       TagBox[{
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledCircle]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.880722, 0.611041, 0.142051], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGCQAWJGIGZiQIBQMPhqn6G/cG/Lt0P2qPxLcL7M8UIguoMm
/wjOd6rmfKu65Tma+jdwPlh6+gc0/Z/gfHQaYt53OB+sXOgXmvl/7GWueK6d
nvrVHmz8hX/2W9IWB31YCbOPweGB3HTdybLf7IvAGhgdjnxv/C+6+xvUfiaH
lpOza1jqvtvHgS1kcahYxW65POkH1B5WB/+zCftsv/+w9wFrYHPocD114PLa
n1D3sTtc+7PBQ7Lil71F32Mg4nAAuSLO6TfUvVwOpdl1EUt4/tirgcW5HY4o
pT54ee0P1P08DkK3vIEm/7WH0LwOiRONPpRk/4P6h88BZPou0//2kNgScIBG
mwMAc9XFzA==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$5515, {2}}]& ], 
       TagBox[{
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledSquare]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.560181, 0.691569, 0.194885], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGCQAWJGIGZiQIBJKp5A9Mk+Q3/h3pZvh+xR+ZfgfJnjhUB0
B03+EZzvVM35VnXLczT1b+B8sPT0D2j6P8H5oWDw1b4hbmnYcW+Yed/tL4Rn
y5wo+WQPVi70y36DkeBjtbMw8//YB+zzYNIN+mwPNv7CP/sNpp+3JTN+gdrH
4LAg28C458YX+yKwBkYHhdhHz2dc/Qq1n8kBQn+zjwNbyOLw8tqfDR6SP6Du
YXWw6HsMRD/sfcAK2Rw6XE8duLz2J9R97A5g5RW/7CHqOBxArohz+g11L5dD
aXZdxBKeP/ZqYHFuhyNKqQ+AdkDdz+MgdMsbaPJfewjN65A40ehDSfY/qH/4
HECm7zL9bw+JLQEHaLQ5AAC8s8ha
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$5515, {3}}]& ], 
       TagBox[{
         Directive[
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[EmptyRectangle]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.922526, 0.385626, 0.209179], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGCQAWJGIGZiQAcf7DP0F+5t+XbIHpV/Cc6XOV4IRHfQ5B/B
+U7VnG9VtzxHU/8GzgdLT/9g/4Gbb0Y6I0z/J/s6rfibssof7EPB4CtUH8y8
7/ZnHromJr/9YA9WLvTLvq/q9vJPUz9C1f2xT5po9KEk+5M92PgL/+zd1byt
XuV+htrH4AChv9gXgTUwOkDor1D7mRwg9Df7OLCFLA4vr/3Z4CH5A+oeVgeL
vsdA9MPeB6yQzaHD9dSBy2t/Qt3H7gBWXvHLHqKOwwHkijin31D3cjmUZtdF
LOH5Y68GFud2OKKU+gBoB9T9PA5Ct7yBJv+1h9C8Dolg//yD+ofPAWT6LtP/
0HAUcIBGmAMAFu+7sw==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$5515, {
          4}}]& ]}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{True, None}, {True, None}}, FrameLabel -> {{
        FormBox[
         TagBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[\\(d\\), \
\\(3\\)]\\)(\\!\\(\\*SubscriptBox[OverscriptBox[\\(d\\), \\(^\\)], \
\\(2\\)]\\))\"", FontSize -> 13, Italic, StripOnInput -> False], HoldForm], 
         TraditionalForm], 
        FormBox[
         TagBox["All", HoldForm], TraditionalForm]}, {
        FormBox[
         TagBox[
          StyleBox[
          
          "\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(d\\), \\(^\\)], \
\\(2\\)]\\)\"", FontSize -> 13, Italic, StripOnInput -> False], HoldForm], 
         TraditionalForm], 
        FormBox[
         TagBox["All", HoldForm], TraditionalForm]}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], ImageSize -> {300, 200}, LabelStyle -> 
     Directive[FontFamily -> "Times", FontSize -> 13], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, PlotRange -> {{0, 4.}, {0, 2.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"\[Rho]=0.25\"", "\"\[Rho]=0.50\"", "\"\[Rho]=0.75\"", 
       "\"\[Rho]=1.00\"", "None", "None", "None", "None"}, "PointLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[FilledDiamond]", FontSize -> 12, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[FilledCircle]", FontSize -> 12, StripOnInput -> False],
                     TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[FilledSquare]", FontSize -> 12, StripOnInput -> False],
                     TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[EmptyRectangle]", FontSize -> 12, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          Directive[FontFamily -> "Times", FontSize -> 13], FontFamily -> 
          "Arial"}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}]}], 
                 "}"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#5, ",", #6, ",", #7, ",", #8}], "}"}]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"\[FilledDiamond]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledCircle]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledSquare]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[EmptyRectangle]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"\[FilledDiamond]", ",", "12"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledCircle]", ",", "12"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledSquare]", ",", "12"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[EmptyRectangle]", ",", "12"}], "}"}]}], 
                   "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
                   "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
                   "}"}]}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.89057957428526*^9, 3.890579612511292*^9, 
  3.890579851907311*^9, 3.890581087661683*^9, 3.890581208718608*^9, 
  3.890652573517748*^9, 3.8907415381731777`*^9, 3.890814044511403*^9, 
  3.891073457009523*^9, 3.8910922327302027`*^9, 3.891092824735012*^9, 
  3.891427870166376*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"c8abb588-973c-488b-a955-cd895d06f16b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Figure", " ", 
     RowBox[{"4", " ", "--"}], " ", "PDF"}], ",", " ", "CDF", ",", " ", 
    RowBox[{"Marginal", " ", "Profit"}], ",", " ", 
    RowBox[{"Agent", " ", 
     RowBox[{"1", "'"}], "s", " ", "equity", " ", "value"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Probability", " ", "that", " ", "agent", " ", "3", " ", "pays", " ", 
    "the", " ", "face", " ", "value", " ", "d3"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"PrAgent3Pays", "[", "d2expected_", "]"}], ":=", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"F3", "[", 
       RowBox[{
        RowBox[{"d3sol", "[", "d2expected", "]"}], ",", "v3minval", ",", 
        "v3maxval"}], "]"}]}], ")"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Density", " ", "of", " ", "agent", " ", 
      RowBox[{"2", "'"}], "s", " ", "assets"}], ",", " ", 
     RowBox[{
      RowBox[{"conditional", " ", "on", " ", "v2max"}], " ", ">", " ", 
      RowBox[{"v2min", " ", "+", " ", "d3"}]}]}], " ", "*)"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"g2a", "[", 
      RowBox[{
      "x2_", ",", "v2min_", ",", "v2max_", ",", "PrPay_", ",", "d3_"}], "]"}],
      ":=", 
     TagBox[GridBox[{
        {"\[Piecewise]", GridBox[{
           {
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "PrPay"}], ")"}], "*", 
             RowBox[{"f2", "[", 
              RowBox[{"x2", ",", "v2min", ",", "v2max"}], "]"}]}], 
            RowBox[{"v2min", "\[LessEqual]", "x2", "<", 
             RowBox[{"v2min", "+", "d3"}]}]},
           {
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "PrPay"}], ")"}], "*", 
              RowBox[{"f2", "[", 
               RowBox[{"x2", ",", "v2min", ",", "v2max"}], "]"}]}], "+", 
             RowBox[{"PrPay", "*", 
              RowBox[{"f2", "[", 
               RowBox[{
                RowBox[{"x2", "-", "d3"}], ",", "v2min", ",", "v2max"}], 
               "]"}]}]}], 
            RowBox[{
             RowBox[{"d3", "+", "v2min"}], "\[LessEqual]", "x2", "<", 
             "v2max"}]},
           {
            RowBox[{"PrPay", "*", 
             RowBox[{"f2", "[", 
              RowBox[{
               RowBox[{"x2", "-", "d3"}], ",", "v2min", ",", "v2max"}], 
              "]"}]}], 
            RowBox[{"v2max", "\[LessEqual]", "x2", "\[LessEqual]", 
             RowBox[{"d3", "+", "v2max"}]}]},
           {"0", 
            TagBox["True",
             "PiecewiseDefault",
             AutoDelete->True]}
          },
          AllowedDimensions->{2, Automatic},
          Editable->True,
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.84]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}},
          Selectable->True]}
       },
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.35]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      "Piecewise",
      DeleteWithContents->True,
      Editable->False,
      SelectWithContents->True,
      Selectable->False,
      StripWrapperBoxes->True]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Density", " ", "of", " ", "agent", " ", 
      RowBox[{"2", "'"}], "s", " ", "assets"}], ",", " ", 
     RowBox[{
      RowBox[{"conditional", " ", "on", " ", "v2max"}], " ", "<", " ", 
      RowBox[{"v2min", " ", "+", " ", "d3"}]}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"g2b", "[", 
      RowBox[{
      "x2_", ",", "v2min_", ",", "v2max_", ",", "PrPay_", ",", "d3_"}], "]"}],
      ":=", 
     TagBox[GridBox[{
        {"\[Piecewise]", GridBox[{
           {
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "PrPay"}], ")"}], "*", 
             RowBox[{"f2", "[", 
              RowBox[{"x2", ",", "v2min", ",", "v2max"}], "]"}]}], 
            RowBox[{"v2min", "\[LessEqual]", "x2", "<", "v2max"}]},
           {
            RowBox[{"PrPay", "*", 
             RowBox[{"f2", "[", 
              RowBox[{
               RowBox[{"x2", "-", "d3"}], ",", "v2min", ",", "v2max"}], 
              "]"}]}], 
            RowBox[{
             RowBox[{"d3", "+", "v2min"}], "\[LessEqual]", "x2", "<", 
             RowBox[{"d3", "+", "v2max"}]}]},
           {"0", 
            TagBox["True",
             "PiecewiseDefault",
             AutoDelete->True]}
          },
          AllowedDimensions->{2, Automatic},
          Editable->True,
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.84]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}},
          Selectable->True]}
       },
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.35]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      "Piecewise",
      DeleteWithContents->True,
      Editable->False,
      SelectWithContents->True,
      Selectable->False,
      StripWrapperBoxes->True]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Overall", " ", "density", " ", "of", " ", "agent", " ", 
     RowBox[{"2", "'"}], "s", " ", "assets"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"g2", "[", 
      RowBox[{
      "x2_", ",", "v2min_", ",", "v2max_", ",", "PrPay_", ",", "d3_"}], "]"}],
      ":=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"v2max", " ", ">", " ", 
        RowBox[{"v2min", " ", "+", " ", "d3"}]}], ",", 
       RowBox[{"g2a", "[", 
        RowBox[{"x2", ",", "v2min", ",", "v2max", ",", "PrPay", ",", "d3"}], 
        "]"}], ",", 
       RowBox[{"g2b", "[", 
        RowBox[{"x2", ",", "v2min", ",", "v2max", ",", "PrPay", ",", "d3"}], 
        "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Conjectured", " ", "equilibrium", " ", "expectation", " ", "over", " ", 
     "d2"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d2expected", "=", "2.5"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "Probability", " ", "that", " ", "agent", " ", "3", " ", "pays"}], ",", 
     " ", 
     RowBox[{
     "given", " ", "the", " ", "conjectured", " ", "equilibrium", " ", 
      "value", " ", "of", " ", "d2"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PrPayval", "=", 
     RowBox[{"PrAgent3Pays", "[", "d2expected", "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Optimal", " ", "d3", " ", "given", " ", "expectations", " ", "about", 
     " ", "d2"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d3val", "=", 
     RowBox[{"d3sol", "[", "d2expected", "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Compute", " ", "CDF", " ", "of", " ", "assets", " ", "of", " ", "agent", 
     " ", "2", " ", "based", " ", "on", " ", "PDF"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"G2", "[", "x2_", "]"}], ":=", 
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"g2", "[", 
       RowBox[{"x", ",", "v2minval", ",", "v2maxval", ",", 
        RowBox[{"PrAgent3Pays", "[", "d2expected", "]"}], ",", 
        RowBox[{"d3sol", "[", "d2expected", "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "v2minval", ",", "x2"}], "}"}], ",", 
      RowBox[{"Assumptions", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", ",", "x2"}], "}"}], "\[Element]", "Reals"}], "}"}]}]}],
      "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Compute", " ", "the", " ", "profit", " ", "function", " ", "for", " ", 
     "agent", " ", "1"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPi]1", "[", "x2_", "]"}], ":=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"G2", "[", "x2", "]"}]}], ")"}], "*", "x2"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "Marginal", " ", "profit", " ", "function", " ", "for", " ", "agent", 
      " ", "1"}], ",", " ", 
     RowBox[{"computed", " ", "via", " ", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"\[CapitalPi]1", "[", "x2", "]"}], ",", "x2"}], "]"}]}]}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalPi]1Prime", "[", "x2_", "]"}], ":=", 
     RowBox[{"1", "-", 
      RowBox[{"(", 
       TagBox[GridBox[{
          {"\[Piecewise]", GridBox[{
             {"0.5`", 
              RowBox[{"2.`", "<", "x2", "\[LessEqual]", "2.5`"}]},
             {"1.`", 
              RowBox[{"x2", "\[GreaterEqual]", "3.5`"}]},
             {
              RowBox[{"0.5`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "x2"}], ")"}]}], 
              RowBox[{"1.`", "<", "x2", "\[LessEqual]", "2.`"}]},
             {
              RowBox[{"0.25`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "3.`"}], "+", 
                 RowBox[{"2.`", " ", "x2"}]}], ")"}]}], 
              RowBox[{"2.5`", "<", "x2", "<", "3.5`"}]},
             {"0.`", 
              TagBox["True",
               "PiecewiseDefault",
               AutoDelete->True]}
            },
            AllowedDimensions->{2, Automatic},
            Editable->True,
            GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
            
            GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.84]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}},
            Selectable->True]}
         },
         GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
         GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.35]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        "Piecewise",
        DeleteWithContents->True,
        Editable->False,
        SelectWithContents->True,
        Selectable->False,
        StripWrapperBoxes->True], ")"}], "-", 
      RowBox[{"x2", " ", 
       RowBox[{"(", 
        TagBox[GridBox[{
           {"\[Piecewise]", GridBox[{
              {"0", 
               RowBox[{"x2", "<", "1"}]},
              {"0.5`", 
               RowBox[{"1", "<", "x2", "<", "2"}]},
              {"0", 
               RowBox[{"2", "<", "x2", "<", 
                FractionBox["5", "2"]}]},
              {"0.5`", 
               RowBox[{
                FractionBox["5", "2"], "<", "x2", "<", 
                FractionBox["7", "2"]}]},
              {"0", 
               RowBox[{"x2", ">", 
                FractionBox["7", "2"]}]},
              {"Indeterminate", 
               TagBox["True",
                "PiecewiseDefault",
                AutoDelete->True]}
             },
             AllowedDimensions->{2, Automatic},
             Editable->True,
             GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
             GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.84]}, 
                 Offset[0.27999999999999997`]}, "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}},
             Selectable->True]}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.35]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         "Piecewise",
         DeleteWithContents->True,
         Editable->False,
         SelectWithContents->True,
         Selectable->False,
         StripWrapperBoxes->True], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{"(*", " ", 
    RowBox[{
    "Create", " ", "plots", " ", "of", " ", "panels", " ", "in", " ", 
     "Figure", " ", "4"}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", "PDF", " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"g2", "[", 
      RowBox[{
      "x2", ",", "v2minval", ",", "v2maxval", ",", "PrPayval", ",", "d3val"}],
       "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x2", ",", "0.1", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"v2maxval", "+", "d3val"}], ")"}], "*", "1.1"}]}], "}"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
          RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
          RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
          RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"300", ",", "200"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\!\(\*SubscriptBox[\(a\), \(2\)]\)\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], ",", 
        
        RowBox[{"Style", "[", 
         RowBox[{"\"\<g(\!\(\*SubscriptBox[\(a\), \(2\)]\))\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}]}], 
       "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", "CDF", " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"G2", "[", "x2", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x2", ",", "0.1", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"v2maxval", "+", "d3val"}], ")"}], "*", "1.1"}]}], "}"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
          RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
          RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
          RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"300", ",", "200"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\!\(\*SubscriptBox[\(a\), \(2\)]\)\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], ",", 
        
        RowBox[{"Style", "[", 
         RowBox[{"\"\<G(\!\(\*SubscriptBox[\(a\), \(2\)]\))\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}]}], 
       "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Marginal", " ", "profit", " ", "function", " ", "for", " ", "agent", " ",
      "1"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"\[CapitalPi]1Prime", "[", "x2", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x2", ",", "0.1", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"v2maxval", "+", "d3val"}], ")"}], "*", "1.1"}]}], "}"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
          RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
          RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
          RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"300", ",", "200"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\!\(\*SubscriptBox[\(d\), \(2\)]\)\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], ",", 
        
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\[CapitalPi]'(\!\(\*SubscriptBox[\(d\), \(2\)]\))\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}]}], 
       "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Profit", " ", "function", " ", "for", " ", "agent", " ", "1"}], 
    " ", "*)"}], " ", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"\[CapitalPi]1", "[", "x2", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x2", ",", "0.1", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"v2maxval", "+", "d3val"}], ")"}], "*", "1.1"}]}], "}"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
          RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
          RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
          RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"300", ",", "200"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\!\(\*SubscriptBox[\(d\), \(2\)]\)\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], ",", 
        
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\[CapitalPi](\!\(\*SubscriptBox[\(d\), \(2\)]\))\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}]}], 
       "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.890571319666748*^9, 3.890571338532205*^9}, {
   3.890571423589431*^9, 3.8905714416007357`*^9}, {3.890571582325347*^9, 
   3.890571585362196*^9}, {3.890580630824773*^9, 3.89058064463378*^9}, 
   3.890580732401156*^9, {3.890580774766014*^9, 3.890580866752507*^9}, {
   3.890580927244946*^9, 3.8905809286721163`*^9}, {3.8905809646001997`*^9, 
   3.890580968425786*^9}, {3.890581003251254*^9, 3.890581003729011*^9}, 
   3.8905810535667067`*^9, {3.8905811046434937`*^9, 3.890581109435911*^9}, {
   3.8905811882392073`*^9, 3.890581188890171*^9}, {3.891072968609043*^9, 
   3.891072968614345*^9}, {3.891073521418131*^9, 3.891073600532721*^9}, {
   3.891073636218423*^9, 3.8910736715646887`*^9}, {3.8910925786531057`*^9, 
   3.891092809748272*^9}, {3.891092859158854*^9, 3.891092962282653*^9}, {
   3.891425275381*^9, 3.8914252769727697`*^9}, 3.891425387326157*^9},
 CellLabel->"In[45]:=",ExpressionUUID->"1cc747a4-2f4e-4719-b4e6-be7ab6b4899a"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.025], 
      AbsoluteThickness[2.2], Opacity[1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwBmIQ/fyp96NZM3faM0CB2J/a+b+eIPguQhtiogx2wfmL
7ESuSx5H8GOm3zk948tuOP+SR+7Waf774Pz7oe4uJ5sOwvmndmSIH7U4Bud7
cuyyOG9+Ac7/Fnr45vQ/V+D8mktHBfJW3oTzf01fo7h19z04f0G9t/Ca3Q/h
/P3XNzGZ+TyB872Pi+09duEZnL+7vaaQVeslnL8858qkP1tfw/l1lx3V6/cj
+GFW63cznkTwWTi6nrDdQfCTFtubCTK9gfNlbq26qeqH4E9wb1Twf4bgp697
t+XiewTfTjTGM+Qngv/2kVlRJM9bON+r7s3hZCMEn2VreHpFHYJfoaS3bqHY
Ozh/bfXx2C/yCP6jKwm87poIvk/75Jw31gi+wpsfWuaJCP7xrYeXn1mN4P/h
iw2X34rgG2R8Yyvah+DPktJME7+I4OfV96kkfUPwxTwjF353eI+Ij0WfAry8
EPyG390Mc4MR/Fdr98U7pSH4+4RU5Hq7EfzP2XvP3p+C4GscDas1mofgTyrv
vHN9A4KfeufdLKVrCP4s0w6v0vsI/rk+xV/HXyD4zC92rZT6hOB/W7jRzuQb
gg8A1SnY8w==
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBmIQzaq//MFTlg/2DGDwwD5HTWDLJm4En+3yHe4YAQS/
oJU/m1EZwb9l7nRqmSmC7xEicr/+OoK/reDZ54jKj3A+y6RuqaTln+D8iUdX
lh9/9xnOv+LiZmVg8BXO71zz+Of76G9wfo3ar/fcC7/D+Q87BB/XXfgB57f8
XcjjJ/kLzr+3d8NshZjfcP6qtAPqXp1/4Pwtip6vzp//C+cXfeb1ssv4B+cb
HL20cg3Dfzj/zwGRzSneCP7JPWF7ZKYh+Bt2fT9QsRvBn7ZjxtErDxB8gR8H
jmm/QvA7zV8eb/qM4LuF13ro/UDwf1+IkJf6jeADAOzdlSc=
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQ3Tw9+EMRE4MDAxTIvE5TzWNF8H//2vD0MDuCv0PK
NS2fB8E3jMpNPyaK4JvEqDzwk0DwzeJuR1yXQvBtkjy9Xsgj+B5ZqrpcWgh+
fNXdT752CH7vLN+6q2kI/stbulOfbEfwb53Pc9TzZ4TzX/m+4VD7jOBf/ajR
LD+FCc7/xfms2kWLGc6v/2B64rwOgs9yvVUkWh/B51uiurbQBMFXsku9N88O
wfcueuLwMwjBn3PrEeu6agRf8aBRkGUdgr9sedO8Iw0I/oYSJfPbrQj+Eb6k
DI4JCP5bp4enkpYg+Har7/eLn0Xwp0zW7Co/j+C/qi5uuX4RwZ/mw145/RqC
/+6tXpL4AwTf5VpFTPkjBH/WvkNh158g+G79Yd7TXyL4cw3qTMQ/I/ifJE7o
lX9F8D0YhTSvf0fw572MVjb/heB/ubhUdvofBL82Yw1/718EHwDtwYWt
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBmIQ3Tw9+EMRE4sDAxg8sPcpPssmzobgLxH5+n4aP4L/
Z6vMTTFJBD/GenetmD2Cv/tApJJYKoKfHvfNZdp6BF/4z6R0sV8IftcBjhNH
ZrPC+VY//y2bZ8QG53PuNlyodg3BF/z4RPJWHjuc/8Un3LWfhQPO/2bI1vNp
GYJv2G0a2GjHCed35y403PcIwT9QeubIn2YuOF//U/m1NCluhHlfXr/5lI3g
7/0ez1y/F0me7WxF+wUEX0/M6l3/YwT/1NwPGiJvEfx01eXJM74h+H7HQ4p+
/kDwzTKZGqN+I/i1GWv4e/8i+AB2BHt0
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQ3Tw9+EMRE48DAxRc+rBj9z0WBH+BicjNBZwIfvu1
g88ZeRD8vIr8b0l8CL7NnlPCqsII/k3nRr+VMgi+UPC7wxv1EfyWwhPrDoUi
+EwCjkfEIxD8xnU7b+ZEIfh1r1exiMcj+BWpvVHZGQh+TmQQm0g1gh/qeCc2
dQGCryb4gYfjNYL/3DKk7XcPL5z/8JpFnZQKH5xfIODlvlcNwf/nGS2QoIng
S+2tXbRUD8EPWnzomIElgn8k34ff3Q/BX8aRsKC4AsE3cSrMFKtG8A9VNxnt
rEXw779bcuRfE4IvcfXli85eBL9zYbHhgkVI8rdbfjktRbJPZNrhp8uRzG/f
Eaq9FsH/lfu3ctt2BL9jOZ9z5C4EX+yhPM+fPQi+cYjTPMdDSOb1Bqc/OYLg
BxxPMWg/juDfYyj7qXkKwc+xaj905gyCDwAphoIu
       "]]},
     Annotation[#, "Charting`Private`Tag$6165#1"]& ], {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox[
      StyleBox[
      "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(2\\)]\\)\"", FontSize -> 13, 
       Italic, StripOnInput -> False], HoldForm], TraditionalForm], 
    FormBox[
     TagBox[
      StyleBox[
      "\"g(\\!\\(\\*SubscriptBox[\\(a\\), \\(2\\)]\\))\"", FontSize -> 13, 
       Italic, StripOnInput -> False], HoldForm], TraditionalForm]},
  AxesOrigin->{0.10000000000000023`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{300, 200},
  LabelStyle->Directive[FontFamily -> "Times", FontSize -> 13],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.1, 3.8500000000000005`}, {0., 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8905807903728228`*^9, 3.890580871070744*^9}, {
   3.890580940711782*^9, 3.8905809690390987`*^9}, 3.890581004395046*^9, 
   3.890581092381838*^9, 3.890581212550758*^9, 3.890652577959771*^9, 
   3.890741541885367*^9, 3.890814052000164*^9, 3.89107361760777*^9, 
   3.891073656120167*^9, {3.8910928116452417`*^9, 3.891092827697439*^9}, 
   3.891427879070472*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"fb5f7ef8-3838-4450-b1bc-84d2ed042614"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.025], 
      AbsoluteThickness[2.2], Opacity[1.], LineBox[CompressedData["
1:eJxF1Xk0lWsXAPBDb4ZeCnFOmpTpK51Ek6RrPwqZm0gkKaGRNBwqkuojQ3GV
Id1CXxkKV0WpE04oKSKJSGcQmc97DJ0Mp97r3u+u8z5rPevZvz/2Xnv/sdez
cG/AVh9ZGo2WPXn/frs67dtTrz8F2r+HLglNG++gbKlW4OFu9Ezq2+bqzZpV
lD2S296mjLClbrA5UpS0qVRqnstGy+rzL6R+U7yf8XLNK6ltFZ6tqTOpl1rs
UtGSLGmUOqThpYp/TovU48m5C4vYXKnTw+xn5rIFUpc1P5Rd7dAhtX0VveRV
/Tep2ZEhgVMNeqTOOtyYICnqkzpY2zA/gy6UOu9M1a4RLcrtjV7KGxdTdoi8
erjfjPKC/lEDkz2Uq4oqsmruU6bbumX8QATV3+2hzXZ2lM9NxNBubqPcm1e6
e70v5VI13fmXYyj7tAlTtZsop666ZHeSR/ndlYXjVd2U11g4ux2ZoLy6loV5
yYqgMu/AYx3aCnh/aoOHorwIZll1KQfqOcBhfZXCh7gIpn9yWLDfxxXkPrTh
Hioi2PVP4AXpYTneUzVEUJ72d+ADZkwWO19TBEb/BAfg6H9nHJLREcHK4vLI
onOB0Gqy/k3mKhEM9s9Z6PPhNJS+7k4oWiuCMc99J6rdQyHDLW5nJYjAvj63
aml7GOw/09YvsBWBYut8kzPB50Fcypoxz1MEdiV/ftkQGQmq1vedr0aIgFG+
P/FgQzzYOKvzwppFIB8V3T5BpMLjo9+Gd5wahD24n3lcYhZgCTGz92YNgXa8
R6OKWRH8/jInqEo4DBFMpxIzVhk0WlqvNTL6Dk4zNXs4nEqIyv06RuwUg/bD
K11lAdUQoj9O4Bk/QHS9u2zZxXcguKT69Wz9KJSr6rz6mf4eLv7MUHLSHAeF
iQ2afyxvBG5JwY0FHhPw/MweE4viJrjny/mPXZQEnGvPbbqm1gKFC2176+p+
wv4NCY1paZ/B6GVDTi6NBM/ou9vcZLgw0OFrsGMqCW3Vtc4F07hwD5u4N2Ua
CdsUxS7y6lzQsdTJdZ9JwsZL1juK9LlArzier6BPAjOiy0PVgQsSjvqjffYk
iMMX+1YnceEpP3uFymYSjr3Y4rcgnQss2m+FbGcS+mmn9wflcIEAnyI1TxK+
hL05qPecC+2lRU84R0moDD0UEC7gQvXz7c/nJpGQcCov2JTJg4i23nWvU0lQ
evrxVPwqHqyXnC05nkZCxOjP013mPHhullX6JpuE4CCn0MQtPCh49oMTzCbB
6yQRPsjiwZHWGAtdDgmfChkXbM7xwGBcq7yukgTnEbiYFsWD/5naVOi/I8Hm
eHyE4x88SCpOednIn5wv0Dgm5wUPtn1iWp/rJOFugVss7S0PVEY5r5b0krBA
FH7ZtZEHNQyXjc1CEq4vu3cl/wsPokx6qs4Pk6Aa0BA3tYsH1q6hNoajJMTm
j8d7iHggG6Ra3SIhQVaonfBojAdebxvulNNo6P/bwgfzz3N9Zk2hXDzbyjdA
ibKx+xG/VxqUL6c6nv3oS7mndWlixxPKrXX+FoabZKTudexX0B+m/HFw0QWt
a7JSjyt+O2NpMIXq5z4vjlFLWThguJfBp3zT6OxKxjBlGxm1xc0/KI+8vzsv
WULZ7hnB+PGLcvptUzVXGQwhq+O6+bJ8EEdfUHoyBUP9GvKa/vJ8cDheK8eQ
w1DKt1RlQyU+3N7JkAlSwJDVE0NZoQofRjfsmWiahqHByHJxngYf7qh/J5Jm
YMh2cS9vqRYfJEVzW+iaGBo9ZPpw6XI+bL3l+4E1B0N31tVmDqzmQ3ZEQW3T
PAxtVt5zI8+MD86uluVJ2hjKyr90cakVH3JHD92nMzG0Y7B5+9IdfPAwY4fS
AUNPWKwJ5lk+sDlu2nQfDLHCH1ky30zWu+uvc9Bvsp79F+vGd3xIir6gW3oA
Q0wNeduQD3w46pyn7+uPIUG2u2NNGx/0u2lLHgdhyKFeZvthgg+/z8hesT0a
Q9pam/1y1QXg5ym2TPoTQ3XP+6OYuwUwU5LgRx/HkN6oXh1zRADRHIXXlTem
IvVw1fgok6+wduxX5q3lcujE0E/H33w6QJFtnKHfJIdmsrzXO+Z2gupgh2ar
vzzSbq9eUfjlG4w4uFrFYQqo63p+9HzFbhAby8UOZSqgAW+lWZ2OPWAcs2pL
uLki8qIfui0b2gsxRzKMS9sVkcbn9d4hL/uAc7KmUnJhGgrvS4kakx+AZUNB
Tb6zceTZQeTWrhSCdcISk+G5OIrVdfX/ZioEj+W85DAtHD3ZV7qMNBfCpWPW
bim6OFLrjH1oZCsE/pB6W7Uhjjidi4uv7hJCwvADAXMDjnS7vCvcIoQgHunr
HzqEo4Ge5pbOZiEoJaY5hvnjaJYB3PjVJgTtVdvy8UAcWR3M9GC0C2HTyWcB
uiwc3eo9wbPpF0L290tDLudw5Nin2nmfRoC7WG+0+BqOCvvtRYGLCSj5sXtK
WAmOQogyuV+nCbhzXVmNX4Yj2xVzdDlhBMSasRdYlONIM4hlcf7iZH4Y3XxK
1WT+L2aI3BUCxHK1wZH1OOpVTh2cnkHAl+zTkd0NOHq25fv093cJqLRblGT7
EUeRiZuZV+8RkHDlwiO8dXK+efJ+jEICDOlrhXFfceTBPNGmVUWARnGXRNSJ
I4OjdWOCtwRI3BLxrd04GntkwLhTT8Cbm6JF6gM4umYm2LKolYAHcMvkJIEj
77B1Ab1cAlIE9tZNgzgyqkiOzf1KgJ9elneKGEfv7JyqjAYIcKpyPjY2iqOb
V3I6hgYJWH1ANtx9AkeHGzDZIjEB8/CCOPZPHJnSvbSCJv91LG/Xrbk0pX/3
VwQNomI2F6OcvlK9JV2Rsto2YcWDZZQvBr7OL3eh7GLRtssnnbK+qkhJoY9y
l6lzxESsstSCpjVnZ+tOlzpTwSv9eDDlw2sjy2tqKP8FQ6hPbQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$6265#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox[
      StyleBox[
      "\"\\!\\(\\*SubscriptBox[\\(a\\), \\(2\\)]\\)\"", FontSize -> 13, 
       Italic, StripOnInput -> False], HoldForm], TraditionalForm], 
    FormBox[
     TagBox[
      StyleBox[
      "\"G(\\!\\(\\*SubscriptBox[\\(a\\), \\(2\\)]\\))\"", FontSize -> 13, 
       Italic, StripOnInput -> False], HoldForm], TraditionalForm]},
  AxesOrigin->{0.10000000000000023`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{300, 200},
  LabelStyle->Directive[FontFamily -> "Times", FontSize -> 13],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.1, 3.8500000000000005`}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8905807903728228`*^9, 3.890580871070744*^9}, {
   3.890580940711782*^9, 3.8905809690390987`*^9}, 3.890581004395046*^9, 
   3.890581092381838*^9, 3.890581212550758*^9, 3.890652577959771*^9, 
   3.890741541885367*^9, 3.890814052000164*^9, 3.89107361760777*^9, 
   3.891073656120167*^9, {3.8910928116452417`*^9, 3.891092827697439*^9}, 
   3.891427879767681*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"1bf3b0ec-2496-43c3-9934-450bc97cedb6"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.025], 
      AbsoluteThickness[2.2], Opacity[1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQ/fyp96NZM3faM4DBB/v7oe4uJ5sOwvmndmSIH7U4
Bud7cuyyOG9+Ac7/Fnr45vQ/V+D8mktHBfJW3oTzf01fo7h19z04f0G9t/Ca
3Q/h/P3XNzGZ+TyB872Pi+09duEZnL+7vaaQVeslnL8858qkP1tfw/kT3BsV
/J+9gfMrlPTWLRR7B+cf33p4+ZnVCL6YZ+TC7w7v4fx9Qipyvd0Ifuqdd7OU
riH45/oUfx1/geB/W7jRzuQbgg8AgipxIQ==
       "]], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAABS+n4OUE8D/sQ2N9aOzfP2wmELSy
C/A/UGa/LzXR3z8G09wLXBDwP+izjNCPvt8/oH+pYwUV8D+AAVpx6qvfPzss
druuGfA/FE8nEkWZ3z9whQ9rASPwP0DqwVP6c98/2jdCyqY18D+YIPfWZCnf
P77I6JK1OvA/CN1ctCkV3z+hWY9bxD/wP3yZwpHuAN8/aHvc7OFJ8D9gEo5M
eNjeP/a+dg8dXvA/KAQlwouH3j8RRqtUk4bwP7znUq2y5d0/SFQU33/X8D/g
rq6DAKLcP7Zw5vNYefE/KD1mMJwa2j8EkosaYqfyP/C30ZV3YtU/kcWpd8fu
8z+86Vgh4kTQP9RERjowMPU/YNnNLX5+xj+JrOP571v2P3A3xWEAQbo/fCb6
7wuh9z8AYXYBBL2XP+GIEeN+0Pg/IBwxYtwPqr+E/aEMThn6PyDsD2VwysC/
3r2wmyBc+z/w7oXdBOHKv6pmwCdKifw/qJoBnygl0r+0IUnqz8/9P9CGJKk/
P9e/QkhHXZPU/T8IIR11TVLXv9BuRdBW2f0/QLsVQVtl17/su0G23eL9P7Dv
Btl2i9e/JFY6guv1/T+QWOkIrtfXv5OKKxoHHP4/TCquaBxw2L9y8w1KPmj+
P8jNNyj5oNm/ABoMvQFt/j8AaDD0BrTZv45ACjDFcf4/OAIpwBTH2b+qjQYW
THv+P6g2Glgw7dm/4if/4VmO/j+In/yHZznav1Fc8Hl1tP4/RHHB59XR2r8w
xdKprAD/P8AUS6eyAty/7eRmKlgF/z+0k5upYBXcv6oE+6oDCv8/qBLsqw4o
3L8jRCOsWhP/P4wQjbBqTdy/FsNzrggm/z9YDM+5Ipjcv/zAFLNkS/8/8ANT
zJIt3b+54KgzEFD/P+SCo85AQN2/dgA9tLtU/z/YAfTQ7lLdv+8/ZbUSXv8/
vP+U1Up43b/ivrW3wHD/P4j71t4Cw92/ybxWvByW/z8k81rxcljev4bc6jzI
mv8/GHKr8yBr3r9C/H69c5//Pwjx+/XOfd6/vDunvsqo/z/w7pz6KqPev7C6
98B4u/8/wOreA+Pt3r9t2otBJMD/P7RpLwaRAN+/Kvofws/E/z+o6H8IPxPf
v6M5SMMmzv8/jOYgDZs437+WuJjF1OD/P1jiYhZTg9+/U9gsRoDl/z9MYbMY
AZbfvxD4wMYr6v8/QOADG6+o37/MF1VH1+7/PzBfVB1du9+/iTfpx4Lz/z8k
3qQfC87fv0ZXfUgu+P8/GF31Ibng37/70FgfGvv/P+xDY31o7N+/e6IDOQ==

       "]], 
      LineBox[{{2.0011957908163267`, 0.5}, {2.006071852668665, 0.5}, {
       2.0106323318716695`, 0.5}, {2.0502118937905096`, 0.5}, {
       2.0897914557093498`, 0.5}, {2.1636624442998995`, 0.5}, {
       2.2437248894800534`, 0.5}, {2.3223257300253217`, 0.5}, {
       2.39563843532346, 0.5}, {2.435390516267331, 0.5}, {2.4751425972112022`,
        0.5}, {2.484419600541279, 0.5}, {2.493696603871355, 0.5}, {
       2.4960158547038738`, 0.5}, {2.498335105536393, 0.5}, {
       2.4988042091836733`, 0.5}}], LineBox[CompressedData["
1:eJwBsQNO/CFib1JlAgAAADoAAAACAAAAg5dT8HICBEAMXk7Bywnov0xzzQYX
BgRAMM01G1wY6L+iWxcBdwgEQIhuXQTcIei/+ENh+9YKBEDgD4XtWyvov6QU
9e+WDwRAkFLUv1s+6L/8tRzZFhkEQPDXcmRbZOi/Up5m03YbBEBIeZpN223o
v6iGsM3WHQRAoBrCNlt36L9UV0TCliIEQFBdEQlbiui/rPhrqxYsBECw4q+t
WrDov1w7u30WPwRAcO3s9ln86L+7wFkiFmUEQOwCZ4lYlOm/qKVuI2pnBECg
lrqNqJ3pv5aKgyS+aQRAWCoOkvim6b9wVK0mZm4EQMBRtZqYuem/JugAK7Z3
BECYoAOs2N7pv5EPqDNWigRARD6gzlgp6r9nXvZElq8EQJx52RNZvuq/E/yS
Zxb6BEBM8EueWejrv4rACMjEmwVAKAIjIBNv7r86+f6mnjIGQHTy/U09ZfC/
CbsxoSbWBkASdmNCTazxvxHx5BnabgdAIuLJM7Td8r/0TFdFjwQIQOiZrooe
CfS/9jEGjPKmCEDsYwwY5U31vzGLNVGBPglAYhZrogJ99r+LbaExvuIJQBbb
QmN8xfe/wHXMxPyDCkCA65iJ+Qf5vy/yd9ZmGgtAXuTvrM00+r9Gkis38xwL
QIwkV27mOfq/XDLfl38fC0C4ZL4v/z76v4hyRlmYJAtAEOWMsjBJ+r/g8hTc
yS4LQMDlKbiTXfq/kvOx4SxDC0Ak52PDWYb6v/b06+zyawtA7OnX2eXX+r8M
lZ9Nf24LQBgqP5v+3Pq/IjVTrgtxC0BEaqZcF+L6v091um8kdgtAnup030js
+r+o9YjyVYALQFDrEeWrAPu/WvYl+LiUC0C07EvwcSn7v733XwN/vQtAeu+/
Bv56+7+kmQ0S4L8LQEgzGyTAf/u/jDu7IEHCC0AYd3ZBgoT7v1p/Fj4DxwtA
tP4sfAaO+7/2Bs14h9ALQOwNmvEOofu/3ah6h+jSC0C6UfUO0aX7v8RKKJZJ
1QtAiJVQLJOq+7+SjoOzC9oLQCQdB2cXtPu/LhY67o/jC0BcLHTcH8f7vxW4
5/zw5QtAKnDP+eHL+7/8WZULUugLQPizKhek0Pu/yp3wKBTtC0CUO+FRKNr7
v7E/njd17wtAYn88b+re+7+Y4UtG1vELQDDDl4ys4/u/ZyWnY5j2C0DOSk7H
MO37v07HVHL5+AtAnI6p5PLx+782aQKBWvsLQGzSBAK19vu/fWisD439C0D6
0FgfGvv7v/XJ1Po=
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQ3Tw9+EMRE48DAxRc+rBj9z0WBH+BicjNBZwIfvu1
g88ZeRD8vIr8b0l8CL7NnlPCqsII/k3nRr+VMgi+UPC7wxv1EfyWwhPrDoUi
+EwCjkfEIxD8xnU7b+ZEIfh1r1exiMcj+BWpvVHZGQh+TmQQm0g1gh/qeCc2
dQGCryb4gYfjNYL/3DKk7XcPL5z/8JpFnZQKH5xfIODlvlcNwf/nGS2QoIng
S+2tXbRUD8EPWnzomIElgn8k34ff3Q/BX8aRsKC4AsE3cSrMFKtG8A9VNxnt
rEXw779bcuRfE4IvcfXli85eBL9zYbHhgkVI8rdbfjktRbJPZNrhp8uRzG/f
Eaq9FsH/lfu3ctt2BL9jOZ9z5C4EX+yhPM+fPQi+cYjTPMdDSOb1Bqc/OYLg
BxxPMWg/juDfYyj7qXkKwc+xaj905gyCDwAphoIu
       "]]},
     Annotation[#, "Charting`Private`Tag$9977#1"]& ], {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox[
      StyleBox[
      "\"\\!\\(\\*SubscriptBox[\\(d\\), \\(2\\)]\\)\"", FontSize -> 13, 
       Italic, StripOnInput -> False], HoldForm], TraditionalForm], 
    FormBox[
     TagBox[
      StyleBox[
      "\"\[CapitalPi]'(\\!\\(\\*SubscriptBox[\\(d\\), \\(2\\)]\\))\"", 
       FontSize -> 13, Italic, StripOnInput -> False], HoldForm], 
     TraditionalForm]},
  AxesOrigin->{0.10000000000000023`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{300, 200},
  LabelStyle->Directive[FontFamily -> "Times", FontSize -> 13],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.1, 3.8500000000000005`}, {-1.7488042091836733`, 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8905807903728228`*^9, 3.890580871070744*^9}, {
   3.890580940711782*^9, 3.8905809690390987`*^9}, 3.890581004395046*^9, 
   3.890581092381838*^9, 3.890581212550758*^9, 3.890652577959771*^9, 
   3.890741541885367*^9, 3.890814052000164*^9, 3.89107361760777*^9, 
   3.891073656120167*^9, {3.8910928116452417`*^9, 3.891092827697439*^9}, 
   3.89142787979257*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"9a8ef6d5-4483-48c9-b1ce-86ea5120faeb"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.025], 
      AbsoluteThickness[2.2], Opacity[1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQ/fyp96NZM3faw2ixP7Xzfz1B0C5CG2KiDHbB6UV2
ItcljyPomOl3Ts/4shtOX/LI3TrNfx+cvh/q7nKy6SCcPrUjQ/yoxTE47cmx
y+K8+QU4/S308M3pf67A6ZpLRwXyVt6E07+mr1HcuvsenF5Q7y28ZvdDOL3/
+iYmM58ncNr7uNjeYxeewend7TWFrFov4fTynCuT/mx9DacrlPTWLRR7B6fX
Vh+P/SKPoB9dSeB110TQPu2Tc95YI2iFNz+0zBMR9PGth5efWY2g//DFhstv
RdAGGd/YivYh6FlSmmniFxF0Xn2fStI3BC3mGbnwu8N7OO296FOAlxeCbvjd
zTA3GEG/Wrsv3ikNQe8TUpHr7UbQn7P3nr0/BUFrHA2rNZqHoCeVd965vgFB
p955N0vpGoKeZdrhVXofQZ/rU/x1/AWCZn6xa6XUJwT9beFGO5NvCBoAzWpZ
uw==
       "]], LineBox[CompressedData["
1:eJw913k4Vd3bB3DSiGQsHaXMkUqDUtI3Kj/SIFFJJKGSJNJkavAIFaWJJ5QG
JKmMZShURClDmuiJlCSxl8PZ+xzDeZd/3j/Oda7PPtfZa+21132v+9Zw22/n
MUJCQoJPP8Pfo+akNv8cycBYfreR3wgG3rryOVkyDPi2lkoNoxiMrm+S2SbP
4NCrz2k6YxncCL27c5QKg8Gxpd8PSjMwNTxUmDmZQaTiQEmZLAPffybsldRi
cP/4Pq+tCgy+LLKoSjFmoFdpduAoj8HTV+2xuUsY9McsVuqewiDZMcbpBej1
VR1qO6cx2B3Y1NlizUAmxGuHpTYDwdNDE6a6MHit0VYknMVAwfKe/cVwBp+M
q3KVzBlY2St/C/3IYP75VQ+UPRnk+bbxtxwl+Dl+XOnqe3R+o06oKoQQ6GyR
e7/wPoOSeDWzypMErdIFJzUe0PuW2YYvPkvw9e7I7J4sBs3Khaq86wTPqj23
hxUwkH4SY9b4gmDlfZdf7pUMnCUXn3aW74HN6yk5vDYG3y/X31NR6YGrTrfp
l190/gY+NdWTe9D7a9f2uN8M/DbemrxMqwdXU9Yclf/LIPzO+Az1hT14O66V
6+YzeGj9veabUw+Eu1boeUsSjIw9w3NL7cGGU3XLHdUI6qQlHoZm9KDupIuU
3FSCG6cOrkp81IO1ngu1StUJzAKcfT8V9mDB58pjmpoEh7bMKV9X04Min9DI
2hkEv9TrD5gKe5C3RUenxZig6h6vUtmGD8cZ2xzK1xHEace4zLPlQzPVvdTS
lsAzUap3vQMfP8c9iXq5gUAqplP9zHY+nAJXGT+1J1jq9/Sg5EE+JOX+/r62
lSDTxG16VwIfJj2Hasd6Elx4efdwRRcfG/MC4tMCCaIX5fCq+XyoaBrd6Aoi
OHv3aXEdx0dnupvSfPpews/VS/03oheflIyQf5zgmMNgTO/EXqRbeGdk/EPg
9tM2TQO9MFb2+moTQzBvFPcpMKYXneGB8U7JBHMOjwg6cakX1pcXz9l/k8Dw
t+y00/G9KCjZP/fELQLdag2P2Fu9aPJZGXjjDgHvsg1Jy++F6owY7Td36fPp
XB/34VsvjsqlV398RPB+peUSI6M+NKX3HS0pIfAvWLn424I+SCXOCo0tJVA0
WmESvbgPRMVbZ2cZwXq15Qs7LfqgkTBgL0H3SRVZPC/NoQ+1wr3LDSoISpNm
GUwP7EOw6JTV0moCV2VD/XehfZB31HbhqIciDWaEhPXBe9lr5ey3dH0D9HSb
zvXhUKKhh3YNwWMbDc24G334mmEWK6ij680p8+TL6fjy8VMdPxGs9VGa/Kyq
D/zG5BVi6s5WBVWfd30omPVI+vZnAoN3chPffOrDdY/WwN9fCO7cGasY8Yf+
rnulY+dXggS7gXESCgIs7lognPidwPSVaOwDFQHSdFLmpFJ/MROOceEJ0NQ6
dczCVoJJ+oJRRVoCXOudHr/+B0GsuFvyyEIBvHcFWPu1EURmtAq7nQSwj93c
GNBB4Du6aM/IHQKotQR4iai3uF76rOopgHhWzrbgPwQzlFc9MfcVYFrZea+Q
ToJXgSlHLoYJUFhfOXNfF8HDhpD21EgB9iq11/+gjpuzeUtRtAAmG3S/be0m
2NU6xuRnnAAGFSOmWTAEo232sAvvC7AnwXTlICHoum2+yyZLgBHVjqN29xB8
GJr8cXu+AI/7r+rXUt/JqsqLKBUgcOPBa0l8Guc8w0NfGgRw6czQ1u0jOPm7
qzd4SIC451Orf7EEXisq3GOlWIz4YFpiwhHYJV5/nzKWRVTb0YkR1BobbHPe
KbJgJDd1aggJSh4/8tfQYzFZM9rMQkSQphjVamzIwlsnwzqc+ry328bVc1k0
6XY8fkXtOl1pvr8pC2Xt8hKrfgLx6YM9L9azaB4zFGA8QNDWssbtsz2LKQNq
17yp35rq1P11ZBHQ5ah1kzqpu+HRRHcWIdXGzmMHaXxZZ2rM3MNidkG93GJq
n1vhF+DDov/2Ba3d1Ms2Lzqw+wiLvwf3HSql1n00oSUomIXi1jM5f6jlZNpt
L5xkYW9W6aA8RPPk0zijgrMs5gzdLnWlfqF64MbbCywqGi3OhlFn+FnLt15h
EZwvUZBCHaQr6pZJZmG+p2lZG/XosPLCyjss6o3dMyXFBDEtsadPp7PYnL0k
T41aFds3rnrA4nXL9k0LqG8mzJwmlcNibml9tA21oYjtKHnMInLDle07qHM3
v8gLKWZRG5v6KoD6laLzOlE5i4Uz8nb+S23nq897/JqFXVD25XTqxuq+nwE1
LFxPiLc/oXafWfZofgMLl0X/lpVTd0VEB5PPLNYlnSquoz7SttX6wX/0efMK
bb9Sj1ipp7Kvlb7/UIugNuqzyfxmg3YWL7lJy7uoVcTPMto7WRzTWprQS520
7eyRFMJiujjzvJB6RsGWle4CFo/P+E4dpM6apCOv2c9ieeVxC7F4OP5J4zcx
i4L8b+Jhl9cVpyaO5KCz+ZzDsNcbRfk7jeNwMjVyxfD/P53bhMlyHN6lva8c
vr/bH02Zj4oc5Jx82ofH77Tq/nBpEodlTzddH55fQErhTbspHFzrznUNz39I
KsJHXoOD31WlD8PPF7HDfslbHQ4B49sd6qkVn00ffdaAw94FMj4V1Nem/K21
nsNhg2ywegG19rEniWMWcJhx2WzXPerMj//seWnCgbxdY3WN2sTYzviUGYd7
T9JLI6lLY9UlzS04bHLYXH+IejXT8WbIkgM/2S7Yjfr92vy4IhsOJ64nPFtD
7XLvlPsxWw7itcb/GlO3j7U1MnHg4Ht/yvip1P3P2yuyXThoh34s/EX3V5hG
7sUDOznsIulsFbVc6Intc3ZzSFSufp1BrbmEx6Yf4NC4b3CpN7XVQxvdm2Ec
UvbKrfhC93vdeNWe7ZEc/D02m2dRO+39UTw1msN8+e6PEcPxoxvsEH+VQ9gR
6bdzqS8lZIadT+dw+BL56kfjT110zHbdAw5vVR4mgTp18/+myOZwmGRVzEpT
Fyg2Z58u5hD87LlfIo3vlgiF1pAaDleFx88+ovGfU5U/7WYDB0nXsPJ91OGy
LttefuFguXLB1hnUhufTG2R+cnAMj4+Oo/nl0NUVr+KEHLKZozM9aP6x+vx7
ZNEQh45VLfOUqdXUzpt/kxKiX7XvYinNXyVJTQU6ckKkmWjunEQtnRJwP0tT
CGOXWOMHNN81/VLraNATwuSms/QG6gf6ZbpCQyFU3BtMSC+B/X25G1gkhPOO
qpuG1Ek5qbFvbISYalGVHkPz6bznnw+3HRTCK0HjzGian0eOOp4z7pgQY57m
iM7R/P3RUpcYhgoR4tz7XIk6qMrPyz9SCFbl6E7eX7rfa2WcJZKEUN8X90GJ
ng9OzWYWvAohFubMPpdPz5fZmj9CzN4I4Z0deVWbWsI9qtC1Voggowv9MT8J
Un59WJDaKIT+7Ts1O+j5xHTt11vACJF74EcmaaH7YzBZdt1kEeLvPDEta6Lr
a/LfJkd1EXQ6U2VVqU/785LdtUS41RBq6d1IEPU71jhwlgh7L3T2TqDnZ0zD
KZc0cxFMM54sXfmR4N/7Hg9HeInwwUfziGstwSNnffv8AhGI3uykXbQeyIrz
SCp7JkLQG9uzUc/p+61Pbq9+IUKvknPrPVo/5Fnzgn+8FSH3zLw3v2m9UWQs
k6LQKkKAem2EXTHNZ+P/sntl+tFd03T/Yy7Bf8UPr03f1o83e2anPqT1zImB
ZvMG137MdTg3lHWbxqOpQnukRz+Cw5P52bT+2fv4wAK+Tz/KCn7nPaL1Epc1
r/rliX7IeAmTExIJFNJyhrxS+xHVqiJtdJmef7GPd+T29GOtxQrNtado/VjT
PsaL7cfGjtVGWrRujpowOVN9oB/LP41pYmm9Vnv2qOj0qAG8/CdZNpHWcy6n
l1zcqjqAGD37ug+0Dj8cVPRCbDYApfC87jG+BOmeJXqrIwfQmLnfz9WJ4Epk
1TL36AHoT/B0+OtIz9uM9w4hFwegHtJ69cgWgq097aeyEgcgEeFvGuVAaF+g
0MzLGkCqTftA/HoC78tucX++DOBgrPaevStoPfhi5LhzhoNQVW9va9Cn661h
3fHu3SCiZ107XEkYWFj9z/ni+0F8073+bjzDoMZnVc2mz4Po5l0psu1i0Flo
nvf1+yDW8bc51HUw0N605OSfvkFIeaw7+aKVwcWombwxU4awbk1JpXsDre/5
41cv2z0ED4Nmucv5DCR4ssWS+4aQHLhiVEYug+jl0kYvDwwhoSL+fGk2g/Rz
oyeuCRxC7fppnu20//iuJ25xjB7CPI1oWZ00Bhu2MUcDcobQUCGy3BrHwOhl
3d0MCTESteX9cg4z+PvD02DLKDEs6noi0gLo/Ub2p0tJi+H3s83imj8DrZVa
GVuVxPBaKnUjaD+Dic/9M8fqilGeISuevYvBQIlytruNGOpX3WztNjF40pw2
X95WjPWJTnFG9rTPkzDLKbQXQ3qc56nxdgy64ZGr6CKGmsIDi+dr6Xyf5uaX
+IqR3Krgqb6KQWXRpqIpV8Swi+Utvzif9jdNHUtf/SvGBKL/xGkuXe+BkGL/
62LY565u0JzDoMg09WlVmhiBPiWCDAPa/xSwJUcKxZhzK+i/hxoM9n05Y65d
Isb82ZN8fWg/aCCaVvbuhRhP1Z/fNpjK4NZiq+e6b8XwMVrPJqkyuPI47uX7
ZjGWTDQxPzyBwcZPhpbHf4oRVu38R388A3mupHxmBx2/45JJI+1X30xy+N/H
LjEyvb/OOEP72chFvytO8sWItV9UtHg0A8vNwVazOTEGkm/2tEnRPrVmyzRe
v/j/++P/A8UOIJw=
       "]], LineBox[CompressedData["
1:eJwlxV1I02EUB+B3O4UWYRDGRAjxExVdH6wkiJ1fYWHqChZIqBT8QZOgJAtW
jVZk3gRikDUQ25XpRRne1VVQSUgQwwv9w6QyWeEk491OEa2CinPx8JQ7/eEe
rzGm9p//D8ZP2AGvgW75V37m06sCA93ys9LDvf1bDHTLuzvPnXm93UC3HOiu
Wj5WYqBb3ndq6aRbaqBbPuAcbV0tM9Att5ytbtxcb6BbPn31XS4UNNAtD4+F
Ygu9BrrlTKrxXvqpgW45lTx/0H/cAz3La6EvhTXigZ7lhWztYNmoF3qO85s+
R5vrCbrwdbt3LtlA0IU3uEPFXTsJunDRRPX0hQBBF64I9rxPBAm6cNtAGj/D
BF14PLWy8UmUoAuXv9gT3h8j6MKTUzcTszcIuvDMpYqmpSGCLjxb5PQV3iHo
wuuHPr5xJgi6cPDRhxHfW4IuPHq37nYkSdCF16IXb7nzBF34fnvBlfgiQRf+
uu53fMsEXbh58XJ3ZIWgC489f9nhpgm68JGRjrZ4hqALP9gVC/iEoAvnSub8
ke8EXbjFs63O/UHQhROZrsqmPEEX/jb/cEf8N0EXvtb3eOvwH4Iu/Bf+Fipf

       "]], LineBox[CompressedData["
1:eJwBsQNO/CFib1JlAgAAADoAAAACAAAAg5dT8HICBEBvFZfXUvzzP0xzzQYX
BgRAvlf/0tj28z+iWxcBdwgEQF2HcIlE8/M/+ENh+9YKBEAyf+jWru/zP6QU
9e+WDwRAd8fsNn/o8z/8tRzZFhkEQHK6RgsP2vM/Up5m03YbBECzK+55b9bz
P6iGsM3WHQRAJ2Wcf87S8z9UV0TCliIEQK0wDVCIy/M/rPhrqxYsBEAkKkAF
67zzP1w7u30WPwRA06brwGyf8z+7wFkiFmUEQCTHWH1hY/M/qKVuI2pnBEDJ
ekn4p1/zP5aKgyS+aQRAGuxUGO1b8z9wVK0mZm4EQMYHvEdzVPM/JugAK7Z3
BEA8I8tjb0XzP5EPqDNWigRAo+rskCYn8z9nXvZElq8EQFm7Pr+Q6fI/E/yS
Zxb6BEB1ZBtsVGryP4rACMjEmwVAs/7ApY5D8T86+f6mnjIGQGtIkGaCGfA/
CbsxoSbWBkCcOmRUnHrtPxHx5BnabgdAR4x1gSrB6j/0TFdFjwQIQBEutXIu
6ec/9jEGjPKmCEDpwQdnC6LkPzGLNVGBPglAMEovCGhk4T+LbaExvuIJQLrt
mK9pXds/wHXMxPyDCkDP1etwIK7TPy/yd9ZmGgtAx27xKtVOyD9Gkis38xwL
QEnUb0oGDMg/XDLfl38fC0D2yvRsKsnHP4hyRlmYJAtAFWsSu0tDxz/g8hTc
yS4LQN53nHvyNsY/kvOx4SxDC0CIweuN0BvEP/b06+zyawtAoy3u7p23vz8M
lZ9Nf24LQKU5j+/ALr8/IjVTrgtxC0B1Zz32yaW+P091um8kdgtAQinBFY6T
vT+o9YjyVYALQG5FZp3ebbs/WvYl+LiUC0DQ3SbPoB23P733XwN/vQtAiCYD
eVPTrD+kmQ0S4L8LQNIDOi64zas/jDu7IEHCC0DZKDqb78eqP1p/Fj4DxwtA
IU2WnNa7qD/2Bs14h9ALQEf6vTyFoaQ/3ah6h+jSC0D7GT+wf5qjP8RKKJZJ
1QtAuIKJ20yToj+SjoOzC9oLQK8sellfhKA/LhY67o/jC0BNy5XlyciYPxW4
5/zw5QtAspEsSeq3lj/8WZULUugLQGzoVRywppQ/yp3wKBTtC0B6SWARLIOQ
P7E/njd17wtA/6SCZsThjD+Y4UtG1vELQFHaaYl7vIg/ZyWnY5j2C0APpqds
ym+AP07HVHL5+AtAcnz8WcSQeD82aQKBWvsLQNbv85iJQHA/fGisD439C0AL
9hVyEiNhP4w4sWs=
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQB2IQ3TQ9+EMRE48DAxQsMBG5uYATwW+/dvA5Iw+Cn1eR
/y2JD8G32XNKWFUYwb/p3Oi3UgbBFwp+d3ijPoLfUnhi3aFQBJ9JwPGIeASC
37hu582cKAS/7vUqFvF4BL8itTcqOwPBz4kMYhOpRvBDHe/Epi5A8NUEP/Bw
vEbwn1uGtP3u4YXzH16zqJNS4YPzCwS83PeqIfj/PKMFEjQRfKm9tYuW6iH4
QYsPHTOwRPCP5Pvwu/sh+Ms4EhYUVyD4Jk6FmWLVCP6h6iajnbUI/v13S478
a0LwJa6+fNHZi+B3Liw2XLAISf52yy+npUj2iUw7/HQ5kvntO0K11yL4v3L/
Vm7bjuB3LOdzjtyF4Is9lOf5swfBNw5xmud4CMm83uD0J0cQ/IDjKQbtxxH8
ewxlPzVPIfg5Vu2HzpxB8AEtnn3J
       "]]},
     Annotation[#, "Charting`Private`Tag$10038#1"]& ], {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox[
      StyleBox[
      "\"\\!\\(\\*SubscriptBox[\\(d\\), \\(2\\)]\\)\"", FontSize -> 13, 
       Italic, StripOnInput -> False], HoldForm], TraditionalForm], 
    FormBox[
     TagBox[
      StyleBox[
      "\"\[CapitalPi](\\!\\(\\*SubscriptBox[\\(d\\), \\(2\\)]\\))\"", 
       FontSize -> 13, Italic, StripOnInput -> False], HoldForm], 
     TraditionalForm]},
  AxesOrigin->{0.10000000000000023`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{300, 200},
  LabelStyle->Directive[FontFamily -> "Times", FontSize -> 13],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.1, 3.8500000000000005`}, {0., 1.2494021045918366`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8905807903728228`*^9, 3.890580871070744*^9}, {
   3.890580940711782*^9, 3.8905809690390987`*^9}, 3.890581004395046*^9, 
   3.890581092381838*^9, 3.890581212550758*^9, 3.890652577959771*^9, 
   3.890741541885367*^9, 3.890814052000164*^9, 3.89107361760777*^9, 
   3.891073656120167*^9, {3.8910928116452417`*^9, 3.891092827697439*^9}, 
   3.89142788104346*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"847c0921-8535-432a-9a31-3ea83ad7e126"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Figure", " ", "5"}], ",", " ", 
    RowBox[{"Panel", " ", "A"}], ",", " ", 
    RowBox[{
    "Default", " ", "probabilities", " ", "for", " ", "agent", " ", "2"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Figure", " ", "5"}], ",", " ", 
    RowBox[{"Panel", " ", "B"}], ",", " ", 
    RowBox[{
    "Default", " ", "probabilities", " ", "for", " ", "agent", " ", "3"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Baseline", " ", "case"}], " ", "-", " ", 
    RowBox[{"no", " ", "subsidies"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"u2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"u3", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2minval", "=", 
     RowBox[{"1", "+", "u2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3minval", "=", 
     RowBox[{"1", "+", "u3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2maxval", "=", 
     RowBox[{"2", "+", "u2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3maxval", "=", 
     RowBox[{"2", "+", "u3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"d3sol", "[", "d2_", "]"}], ":=", 
     RowBox[{"1", "-", 
      RowBox[{"Boole", "[", 
       RowBox[{"d2", ">", "1"}], "]"}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"Boole", "[", 
          RowBox[{"d2", "<", "4"}], "]"}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["1", "4"], " ", 
       RowBox[{"Boole", "[", 
        RowBox[{
         RowBox[{"d2", "<", 
          RowBox[{
           FractionBox["5", "2"], "+", 
           RowBox[{"(", 
            TagBox[GridBox[{
               {"\[Piecewise]", GridBox[{
                  {
                   RowBox[{
                    FractionBox["1", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", "d2"}], ")"}], "2"]}], 
                   RowBox[{"d2", "<", "2"}]},
                  {"0", 
                   TagBox["True",
                    "PiecewiseDefault",
                    AutoDelete->True]}
                 },
                 AllowedDimensions->{2, Automatic},
                 Editable->True,
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
                 
                 GridBoxItemSize->{
                  "Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.84]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}},
                 Selectable->True]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
              
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.35]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}}],
             "Piecewise",
             DeleteWithContents->True,
             Editable->False,
             SelectWithContents->True,
             Selectable->False,
             StripWrapperBoxes->True], ")"}]}]}], "&&", 
         RowBox[{"1", "<", "d2", "<", "4"}]}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "d2"}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           TagBox[GridBox[{
              {"\[Piecewise]", GridBox[{
                 {
                  RowBox[{
                   FractionBox["1", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", "d2"}], ")"}], "2"]}], 
                  RowBox[{"d2", "<", "2"}]},
                 {"0", 
                  TagBox["True",
                   "PiecewiseDefault",
                   AutoDelete->True]}
                },
                AllowedDimensions->{2, Automatic},
                Editable->True,
                
                GridBoxAlignment->{
                 "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
                
                GridBoxItemSize->{
                 "Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.84]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}},
                Selectable->True]}
             },
             GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
             GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.35]}, 
                 Offset[0.27999999999999997`]}, "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}}],
            "Piecewise",
            DeleteWithContents->True,
            Editable->False,
            SelectWithContents->True,
            Selectable->False,
            StripWrapperBoxes->True], ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"Boole", "[", 
        RowBox[{
         RowBox[{"d2", "\[GreaterEqual]", 
          RowBox[{"1", "+", 
           RowBox[{"(", 
            TagBox[GridBox[{
               {"\[Piecewise]", GridBox[{
                  {
                   FractionBox[
                    RowBox[{"2", "+", "d2"}], "3"], 
                   RowBox[{
                    RowBox[{
                    FractionBox["5", "2"], "<", "d2", "<", "4"}], "||", 
                    RowBox[{"d2", ">", "4"}]}]},
                  {
                   RowBox[{
                    FractionBox["1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "d2", "+", 
                    SqrtBox[
                    RowBox[{"11", "-", 
                    RowBox[{"6", " ", "d2"}], "+", 
                    SuperscriptBox["d2", "2"]}]]}], ")"}]}], 
                   RowBox[{"d2", "<", 
                    FractionBox["5", "2"]}]},
                  {"0", 
                   TagBox["True",
                    "PiecewiseDefault",
                    AutoDelete->True]}
                 },
                 AllowedDimensions->{2, Automatic},
                 Editable->True,
                 
                 GridBoxAlignment->{
                  "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
                 
                 GridBoxItemSize->{
                  "Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.84]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.4]}, 
                    Offset[0.2]}},
                 Selectable->True]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
              
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.35]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}}],
             "Piecewise",
             DeleteWithContents->True,
             Editable->False,
             SelectWithContents->True,
             Selectable->False,
             StripWrapperBoxes->True], ")"}]}]}], "&&", 
         RowBox[{"d2", "<", "4"}], "&&", 
         RowBox[{"d2", ">", "1"}]}], "]"}], " ", 
       RowBox[{"(", 
        TagBox[GridBox[{
           {"\[Piecewise]", GridBox[{
              {
               FractionBox[
                RowBox[{"2", "+", "d2"}], "3"], 
               RowBox[{
                RowBox[{
                 FractionBox["5", "2"], "<", "d2", "<", "4"}], "||", 
                RowBox[{"d2", ">", "4"}]}]},
              {
               RowBox[{
                FractionBox["1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "d2", "+", 
                  SqrtBox[
                   RowBox[{"11", "-", 
                    RowBox[{"6", " ", "d2"}], "+", 
                    SuperscriptBox["d2", "2"]}]]}], ")"}]}], 
               RowBox[{"d2", "<", 
                FractionBox["5", "2"]}]},
              {"0", 
               TagBox["True",
                "PiecewiseDefault",
                AutoDelete->True]}
             },
             AllowedDimensions->{2, Automatic},
             Editable->True,
             GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
             GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.84]}, 
                 Offset[0.27999999999999997`]}, "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}},
             Selectable->True]}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
          GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.35]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         "Piecewise",
         DeleteWithContents->True,
         Editable->False,
         SelectWithContents->True,
         Selectable->False,
         StripWrapperBoxes->True], ")"}]}]}]}], ";"}], " ", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Subsidy", " ", "to", " ", "agent", " ", "2", " ", "equal", " ", "to", 
     " ", "0.2"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"u2", "=", 
     RowBox[{"20", "/", "100"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"u3", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2minval", "=", 
     RowBox[{"1", "+", "u2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3minval", "=", 
     RowBox[{"1", "+", "u3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2maxval", "=", 
     RowBox[{"2", "+", "u2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3maxval", "=", 
     RowBox[{"2", "+", "u3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"d3solu202", "[", "d2_", "]"}], ":=", 
     RowBox[{"1", "-", 
      RowBox[{"Boole", "[", 
       RowBox[{"d2", ">", 
        FractionBox["6", "5"]}], "]"}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"Boole", "[", 
          RowBox[{"d2", "<", 
           FractionBox["21", "5"]}], "]"}]}], ")"}]}], "+", 
      RowBox[{"(", 
       TagBox[GridBox[{
          {"\[Piecewise]", GridBox[{
             {
              RowBox[{
               FractionBox["3", "5"], "+", 
               FractionBox["d2", "3"]}], 
              RowBox[{
               FractionBox["27", "10"], "\[LessEqual]", "d2", "<", 
               FractionBox["21", "5"]}]},
             {
              RowBox[{
               FractionBox["1", "300"], " ", 
               RowBox[{"(", 
                RowBox[{"168", "+", 
                 RowBox[{"20", " ", "d2"}], "+", 
                 RowBox[{"75", " ", 
                  SuperscriptBox["d2", "2"]}], "+", 
                 RowBox[{"40", " ", 
                  SqrtBox[
                   RowBox[{"201", "-", 
                    RowBox[{"135", " ", "d2"}], "+", 
                    RowBox[{"25", " ", 
                    SuperscriptBox["d2", "2"]}]}]]}]}], ")"}]}], 
              RowBox[{
               RowBox[{
                FractionBox["6", "5"], "<", "d2", "<", 
                FractionBox["11", "5"]}], "&&", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"16", "-", 
                   RowBox[{"5", " ", "d2"}]}], ")"}], "2"], ">", "0"}], "&&", 
               
               RowBox[{
                RowBox[{"6", "+", 
                 RowBox[{"2", " ", 
                  SqrtBox[
                   RowBox[{"201", "-", 
                    RowBox[{"135", " ", "d2"}], "+", 
                    RowBox[{"25", " ", 
                    SuperscriptBox["d2", "2"]}]}]]}]}], "\[LessEqual]", 
                RowBox[{"5", " ", "d2"}]}]}]},
             {
              RowBox[{
               FractionBox["2", "15"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "6"}], "+", 
                 RowBox[{"5", " ", "d2"}], "+", 
                 SqrtBox[
                  RowBox[{"201", "-", 
                   RowBox[{"135", " ", "d2"}], "+", 
                   RowBox[{"25", " ", 
                    SuperscriptBox["d2", "2"]}]}]]}], ")"}]}], 
              RowBox[{
               RowBox[{
                FractionBox["6", "5"], "<", "d2", "<", 
                FractionBox["11", "5"]}], "&&", 
               RowBox[{
                RowBox[{"6", "+", 
                 RowBox[{"2", " ", 
                  SqrtBox[
                   RowBox[{"201", "-", 
                    RowBox[{"135", " ", "d2"}], "+", 
                    RowBox[{"25", " ", 
                    SuperscriptBox["d2", "2"]}]}]]}]}], "\[LessEqual]", 
                RowBox[{"5", " ", "d2"}]}]}]},
             {
              RowBox[{
               FractionBox["34", "25"], "-", 
               FractionBox[
                RowBox[{"3", " ", "d2"}], "5"], "+", 
               FractionBox[
                SuperscriptBox["d2", "2"], "4"]}], 
              RowBox[{
               FractionBox["6", "5"], "<", "d2", "<", 
               FractionBox["11", "5"]}]},
             {
              RowBox[{
               FractionBox["3", "20"], "+", 
               FractionBox["d2", "2"]}], 
              RowBox[{
               FractionBox["11", "5"], "<", "d2", "<", 
               FractionBox["27", "10"]}]},
             {"0", 
              TagBox["True",
               "PiecewiseDefault",
               AutoDelete->True]}
            },
            AllowedDimensions->{2, Automatic},
            Editable->True,
            GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
            
            GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.84]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}},
            Selectable->True]}
         },
         GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
         GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.35]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        "Piecewise",
        DeleteWithContents->True,
        Editable->False,
        SelectWithContents->True,
        Selectable->False,
        StripWrapperBoxes->True], ")"}]}]}], ";"}], " ", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Subsidy", " ", "to", " ", "agent", " ", "3", " ", "equal", " ", "to", 
     " ", "0.2"}], "  ", "*)"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"u2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"u3", "=", 
     RowBox[{"20", "/", "100"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2minval", "=", 
     RowBox[{"1", "+", "u2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3minval", "=", 
     RowBox[{"1", "+", "u3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2maxval", "=", 
     RowBox[{"2", "+", "u2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3maxval", "=", 
     RowBox[{"2", "+", "u3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"d3solu302b", "[", "d2_", "]"}], ":=", 
     RowBox[{
      RowBox[{
       FractionBox["6", "5"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"Boole", "[", 
          RowBox[{"d2", ">", 
           RowBox[{"1.0", "+", 
            SqrtBox[
             FractionBox["2", "5"]]}]}], "]"}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["11", "5"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"Boole", "[", 
          RowBox[{"d2", "<", 
           FractionBox["21", "5"]}], "]"}]}], ")"}]}], "+", 
      RowBox[{"(", 
       TagBox[GridBox[{
          {"\[Piecewise]", GridBox[{
             {
              RowBox[{
               FractionBox["1", "60"], " ", 
               RowBox[{"(", 
                RowBox[{"45", "+", 
                 RowBox[{"10", " ", "d2"}], "+", 
                 RowBox[{"15", " ", 
                  SuperscriptBox["d2", "2"]}], "+", 
                 RowBox[{"4", " ", 
                  SqrtBox[
                   RowBox[{"741", "-", 
                    RowBox[{"510", " ", "d2"}], "+", 
                    RowBox[{"100", " ", 
                    SuperscriptBox["d2", "2"]}]}]]}]}], ")"}]}], 
              RowBox[{
               RowBox[{
                RowBox[{"1", "+", 
                 SqrtBox[
                  FractionBox["2", "5"]]}], "<", "d2", "<", "2"}], "&&", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "6"}], "+", "d2"}], ")"}], " ", "d2"}], ">", 
                RowBox[{"-", 
                 FractionBox["47", "5"]}]}], "&&", 
               RowBox[{
                RowBox[{"6", "+", 
                 SqrtBox[
                  RowBox[{"741", "-", 
                   RowBox[{"510", " ", "d2"}], "+", 
                   RowBox[{"100", " ", 
                    SuperscriptBox["d2", "2"]}]}]]}], "\[LessEqual]", 
                RowBox[{"5", " ", "d2"}]}]}]},
             {
              RowBox[{
               FractionBox["1", "20"], " ", 
               RowBox[{"(", 
                RowBox[{"27", "-", 
                 RowBox[{"10", " ", "d2"}], "+", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["d2", "2"]}]}], ")"}]}], 
              RowBox[{
               RowBox[{
                RowBox[{"1", "+", 
                 SqrtBox[
                  FractionBox["2", "5"]]}], "<", "d2", "<", "2"}], "&&", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "6"}], "+", "d2"}], ")"}], " ", "d2"}], ">", 
                RowBox[{"-", 
                 FractionBox["47", "5"]}]}]}]},
             {
              RowBox[{
               FractionBox["7", "20"], "+", 
               FractionBox["d2", "2"]}], 
              RowBox[{"2", "<", "d2", "<", 
               FractionBox["27", "10"]}]},
             {
              RowBox[{
               FractionBox["4", "5"], "+", 
               FractionBox["d2", "3"]}], 
              RowBox[{
               FractionBox["27", "10"], "\[LessEqual]", "d2", "<", 
               FractionBox["21", "5"]}]},
             {
              RowBox[{
               FractionBox["1", "15"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "9"}], "+", 
                 RowBox[{"10", " ", "d2"}], "+", 
                 SqrtBox[
                  RowBox[{"741", "-", 
                   RowBox[{"510", " ", "d2"}], "+", 
                   RowBox[{"100", " ", 
                    SuperscriptBox["d2", "2"]}]}]]}], ")"}]}], 
              RowBox[{
               RowBox[{"1", "<", "d2", "<", "2"}], "&&", 
               RowBox[{
                RowBox[{"6", "+", 
                 SqrtBox[
                  RowBox[{"741", "-", 
                   RowBox[{"510", " ", "d2"}], "+", 
                   RowBox[{"100", " ", 
                    SuperscriptBox["d2", "2"]}]}]]}], "\[LessEqual]", 
                RowBox[{"5", " ", "d2"}]}]}]},
             {"0", 
              TagBox["True",
               "PiecewiseDefault",
               AutoDelete->True]}
            },
            AllowedDimensions->{2, Automatic},
            Editable->True,
            GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
            
            GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.84]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}},
            Selectable->True]}
         },
         GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
         GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.35]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        "Piecewise",
        DeleteWithContents->True,
        Editable->False,
        SelectWithContents->True,
        Selectable->False,
        StripWrapperBoxes->True], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probabilities", " ", "in", " ", "the", " ", "baseline", " ", "case"}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "3", " ", "pays", " ", 
     "the", " ", "debt", " ", "in", " ", "full"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent3Paysfullsol", "[", 
      RowBox[{"d2expected_", ",", "v3min_", ",", "v3max_"}], "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"F3", "[", 
        RowBox[{
         RowBox[{"d3sol", "[", "d2expected", "]"}], ",", "v3min", ",", 
         "v3max"}], "]"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "2", " ", "pays", " ", 
     "the", " ", "debt", " ", "conditional", " ", "on", " ", "collecting", 
     " ", "d3"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent2PaysCondonCollectingd3fullsol", "[", 
      RowBox[{"d2expected_", ",", "v2min_", ",", "v2max_"}], "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"F2", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d2expected", "-", 
           RowBox[{"d3sol", "[", "d2expected", "]"}]}], ")"}], ",", "v2min", 
         ",", "v2max"}], "]"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "2", " ", "pays", " ", 
     "its", " ", "debt", " ", "conditional", " ", "on", " ", "not", " ", 
     "collecting", " ", "d3"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent2PaysCondonNotCollectingd3fullsol", "[", 
      RowBox[{"d2expected_", ",", "v2min_", ",", "v2max_"}], "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"F2", "[", 
        RowBox[{
         RowBox[{"(", "d2expected", ")"}], ",", "v2min", ",", "v2max"}], 
        "]"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "2", " ", "pays", " ", 
     "its", " ", "debt"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent2Paysfullsol", "[", 
      RowBox[{
      "d2expected_", ",", "v2min_", ",", "v2max_", ",", "v3min_", ",", 
       "v3max_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"PrAgent3Paysfullsol", "[", 
        RowBox[{"d2expected", ",", "v3min", ",", "v3max"}], "]"}], "*", 
       RowBox[{"PrAgent2PaysCondonCollectingd3fullsol", "[", 
        RowBox[{"d2expected", ",", "v2min", ",", "v2max"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"PrAgent3Paysfullsol", "[", 
          RowBox[{"d2expected", ",", "v3min", ",", "v3max"}], "]"}]}], ")"}], 
       "*", 
       RowBox[{"PrAgent2PaysCondonNotCollectingd3fullsol", "[", 
        RowBox[{"d2expected", ",", "v2min", ",", "v2max"}], "]"}]}]}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probabilities", " ", "in", " ", "the", " ", "case", " ", "where", " ", 
     "agent", " ", "2", " ", "gets", " ", "a", " ", "subsidy"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "3", " ", "pays", " ", 
     "the", " ", "debt", " ", "in", " ", "full"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent3Paysfullsolu202", "[", 
      RowBox[{"d2expected_", ",", "v3min_", ",", "v3max_"}], "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"F3", "[", 
        RowBox[{
         RowBox[{"d3solu202", "[", "d2expected", "]"}], ",", "v3min", ",", 
         "v3max"}], "]"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "2", " ", "pays", " ", 
     "the", " ", "debt", " ", "conditional", " ", "on", " ", "collecting", 
     " ", "d3"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent2PaysCondonCollectingd3fullsolu202", "[", 
      RowBox[{"d2expected_", ",", "v2min_", ",", "v2max_"}], "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"F2", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d2expected", "-", 
           RowBox[{"d3solu202", "[", "d2expected", "]"}]}], ")"}], ",", 
         "v2min", ",", "v2max"}], "]"}]}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "2", " ", "pays", " ", 
     "its", " ", "debt", " ", "conditional", " ", "on", " ", "not", " ", 
     "collecting", " ", "d3"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent2PaysCondonNotCollectingd3fullsolu202", "[", 
      RowBox[{"d2expected_", ",", "v2min_", ",", "v2max_"}], "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"F2", "[", 
        RowBox[{
         RowBox[{"(", "d2expected", ")"}], ",", "v2min", ",", "v2max"}], 
        "]"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "2", " ", "pays", " ", 
     "its", " ", "debt"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent2Paysfullsolu202", "[", 
      RowBox[{
      "d2expected_", ",", "v2min_", ",", "v2max_", ",", "v3min_", ",", 
       "v3max_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"PrAgent3Paysfullsolu202", "[", 
        RowBox[{"d2expected", ",", "v3min", ",", "v3max"}], "]"}], "*", 
       RowBox[{"PrAgent2PaysCondonCollectingd3fullsolu202", "[", 
        RowBox[{"d2expected", ",", "v2min", ",", "v2max"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"PrAgent3Paysfullsolu202", "[", 
          RowBox[{"d2expected", ",", "v3min", ",", "v3max"}], "]"}]}], ")"}], 
       "*", 
       RowBox[{"PrAgent2PaysCondonNotCollectingd3fullsolu202", "[", 
        RowBox[{"d2expected", ",", "v2min", ",", "v2max"}], "]"}]}]}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probabilities", " ", "in", " ", "the", " ", "case", " ", "where", " ", 
     "agent", " ", "3", " ", "gets", " ", "a", " ", "subsidy"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "3", " ", "pays", " ", 
     "the", " ", "debt", " ", "in", " ", "full"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent3Paysfullsolu302", "[", 
      RowBox[{"d2expected_", ",", "v3min_", ",", "v3max_"}], "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"F3", "[", 
        RowBox[{
         RowBox[{"d3solu302b", "[", "d2expected", "]"}], ",", "v3min", ",", 
         "v3max"}], "]"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "2", " ", "pays", " ", 
     "the", " ", "debt", " ", "conditional", " ", "on", " ", "collecting", 
     " ", "d3"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent2PaysCondonCollectingd3fullsolu302", "[", 
      RowBox[{"d2expected_", ",", "v2min_", ",", "v2max_"}], "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"F2", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d2expected", "-", 
           RowBox[{"d3solu302b", "[", "d2expected", "]"}]}], ")"}], ",", 
         "v2min", ",", "v2max"}], "]"}]}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "2", " ", "pays", " ", 
     "its", " ", "debt", " ", "conditional", " ", "on", " ", "not", " ", 
     "collecting", " ", "d3"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent2PaysCondonNotCollectingd3fullsolu302", "[", 
      RowBox[{"d2expected_", ",", "v2min_", ",", "v2max_"}], "]"}], ":=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"F2", "[", 
        RowBox[{
         RowBox[{"(", "d2expected", ")"}], ",", "v2min", ",", "v2max"}], 
        "]"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Probability", " ", "that", " ", "agent", " ", "2", " ", "pays", " ", 
     "its", " ", "debt"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrAgent2Paysfullsolu302", "[", 
      RowBox[{
      "d2expected_", ",", "v2min_", ",", "v2max_", ",", "v3min_", ",", 
       "v3max_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"PrAgent3Paysfullsolu302", "[", 
        RowBox[{"d2expected", ",", "v3min", ",", "v3max"}], "]"}], "*", 
       RowBox[{"PrAgent2PaysCondonCollectingd3fullsolu302", "[", 
        RowBox[{"d2expected", ",", "v2min", ",", "v2max"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"PrAgent3Paysfullsolu302", "[", 
          RowBox[{"d2expected", ",", "v3min", ",", "v3max"}], "]"}]}], ")"}], 
       "*", 
       RowBox[{"PrAgent2PaysCondonNotCollectingd3fullsolu302", "[", 
        RowBox[{"d2expected", ",", "v2min", ",", "v2max"}], "]"}]}]}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Plot", " ", "instructions"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Instructions", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
            RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
            RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"AbsoluteThickness", "[", "2.2", "]"}], ",", 
            RowBox[{"PointSize", "[", "0.025", "]"}]}], "}"}]}], "}"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"300", ",", "200"}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\[FilledDiamond]", ",", "12"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[FilledCircle]", ",", "12"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[FilledSquare]", ",", "12"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[EmptyRectangle]", ",", "12"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"True", ",", "None"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"True", ",", "None"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Joined", "\[Rule]", "True"}]}], "}"}]}], ";"}], " ", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Compute", " ", "lists", " ", "of", " ", "points", " ", "for", " ", "the",
      " ", "plots"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Deltax", "=", 
     RowBox[{"3.9999", "/", "20"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"u2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"u3", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2minval", "=", 
     RowBox[{"1", "+", "u2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3minval", "=", 
     RowBox[{"1", "+", "u3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2maxval", "=", 
     RowBox[{"2", "+", "u2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3maxval", "=", 
     RowBox[{"2", "+", "u3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlistdef3base", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"1", "-", 
          RowBox[{"PrAgent3Paysfullsol", "[", 
           RowBox[{"x", ",", "v3minval", ",", "v3maxval"}], "]"}]}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0000", ",", 
         RowBox[{"v2maxval", "+", "v3maxval", "+", "0.2"}], ",", "Deltax"}], 
        "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlistdef2base", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"1", "-", 
          RowBox[{"PrAgent2Paysfullsol", "[", 
           RowBox[{
           "x", ",", "v2minval", ",", "v2maxval", ",", "v3minval", ",", 
            "v3maxval"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0000", ",", 
         RowBox[{"v2maxval", "+", "v3maxval", "+", "0.2"}], ",", "Deltax"}], 
        "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"u2", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"u3", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2minval", "=", 
     RowBox[{"1", "+", "u2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3minval", "=", 
     RowBox[{"1", "+", "u3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2maxval", "=", 
     RowBox[{"2", "+", "u2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3maxval", "=", 
     RowBox[{"2", "+", "u3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlistdef3u202", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"1", "-", 
          RowBox[{"PrAgent3Paysfullsolu202", "[", 
           RowBox[{"x", ",", "v3minval", ",", "v3maxval"}], "]"}]}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0000", ",", 
         RowBox[{"v2maxval", "+", "v3maxval"}], ",", "Deltax"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlistdef2u202", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"1", "-", 
          RowBox[{"PrAgent2Paysfullsolu202", "[", 
           RowBox[{
           "x", ",", "v2minval", ",", "v2maxval", ",", "v3minval", ",", 
            "v3maxval"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0000", ",", 
         RowBox[{"v2maxval", "+", "v3maxval"}], ",", "Deltax"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"u2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"u3", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2minval", "=", 
     RowBox[{"1", "+", "u2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3minval", "=", 
     RowBox[{"1", "+", "u3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v2maxval", "=", 
     RowBox[{"2", "+", "u2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"v3maxval", "=", 
     RowBox[{"2", "+", "u3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlistdef3u302", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"1", "-", 
          RowBox[{"PrAgent3Paysfullsolu302", "[", 
           RowBox[{"x", ",", "v3minval", ",", "v3maxval"}], "]"}]}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0000", ",", 
         RowBox[{"v2maxval", "+", "v3maxval"}], ",", "Deltax"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fxlistdef2u302", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"1", "-", 
          RowBox[{"PrAgent2Paysfullsolu302", "[", 
           RowBox[{
           "x", ",", "v2minval", ",", "v2maxval", ",", "v3minval", ",", 
            "v3maxval"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0000", ",", 
         RowBox[{"v2maxval", "+", "v3maxval"}], ",", "Deltax"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Legended", "[", 
        RowBox[{
        "fxlistdef3base", ",", "\"\<Pr[3 defaults | no subsidy]\>\""}], "]"}],
        ",", 
       RowBox[{"Legended", "[", 
        RowBox[{
        "fxlistdef3u202", ",", 
         "\"\<Pr[3 defaults | \!\(\*SubscriptBox[\(u\), \(2\)]\)=0.2]\>\""}], 
        "]"}], ",", 
       RowBox[{"Legended", "[", 
        RowBox[{
        "fxlistdef3u302", ",", 
         "\"\<Pr[3 defaults | \!\(\*SubscriptBox[\(u\), \(3\)]\)=0.2]\>\""}], 
        "]"}]}], "}"}], ",", "Instructions", ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<\>\"", ",", 
            RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], 
          ",", "All"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<\!\(\*SubscriptBox[OverscriptBox[\(d\), \(^\)], \(2\)]\)\>\"",
             ",", 
            RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], 
          ",", "All"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Legended", "[", 
        RowBox[{
        "fxlistdef2base", ",", "\"\<Pr[2 defaults | no subsidy]\>\""}], "]"}],
        ",", 
       RowBox[{"Legended", "[", 
        RowBox[{
        "fxlistdef2u202", ",", 
         "\"\<Pr[2 defaults | \!\(\*SubscriptBox[\(u\), \(2\)]\)=0.2]\>\""}], 
        "]"}], ",", 
       RowBox[{"Legended", "[", 
        RowBox[{
        "fxlistdef2u302", ",", 
         "\"\<Pr[2 defaults | \!\(\*SubscriptBox[\(u\), \(3\)]\)=0.2]\>\""}], 
        "]"}]}], "}"}], ",", "Instructions", ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<\>\"", ",", 
            RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], 
          ",", "All"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<\!\(\*SubscriptBox[OverscriptBox[\(d\), \(^\)], \(2\)]\)\>\"",
             ",", 
            RowBox[{"FontSize", "\[Rule]", "13"}], ",", "Italic"}], "]"}], 
          ",", "All"}], "}"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.890571576317984*^9, 3.890571599889449*^9}, {
   3.89058134405162*^9, 3.890581371497583*^9}, {3.8905816539089127`*^9, 
   3.8905816916566877`*^9}, {3.890581722942453*^9, 3.89058173229487*^9}, {
   3.890652604706048*^9, 3.890652734916382*^9}, {3.890741648754264*^9, 
   3.890741652311956*^9}, {3.891072968653495*^9, 3.891072968702755*^9}, {
   3.891073415068618*^9, 3.891073425433674*^9}, {3.891073709530539*^9, 
   3.891073821762473*^9}, 3.891073880309058*^9, {3.891092992162932*^9, 
   3.891092997471711*^9}, {3.89109304889612*^9, 3.8910930594132833`*^9}, {
   3.891093445041512*^9, 3.891093445513994*^9}, {3.8910934846750603`*^9, 
   3.891093581543922*^9}, {3.89109362383217*^9, 3.891093840022675*^9}, {
   3.891094171550015*^9, 3.8910941843731413`*^9}, {3.891096910760742*^9, 
   3.891096960696198*^9}, {3.8913549647534018`*^9, 3.891355000497716*^9}, {
   3.891355219796513*^9, 3.891355548002151*^9}, {3.891425288404351*^9, 
   3.891425289619176*^9}, {3.8914253941249638`*^9, 3.891425451591425*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"dbd24a9d-c358-4457-91f4-14dd44c156a5"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, 
       TagBox[{
         Hue[0.67, 0.6, 0.6], 
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAQA2IQjQ4ut+utyJ950h6VfxPOv/dUaZ+w8WM0+Zdw/glN
q0mn/79HU//ZvkHJaIVfZYv9zW0amx3Tvtkz7DuS8a1yiT1E/0/7CTIH5Eo4
t9ufjTCZO/fMH/uMffxeXlVH7CHm/bcXcHDw0vt/3j7x7/zDNTMZHVq+1vN9
Tr1mDzGf2aFievcPvzN37KPPLd2x6gyLg4rw3QWPBR5C7WNzUPA0c2ECujts
/uq1N/6zO8jU9z9XCH0KtZ/TQWrriy778uf2AQUbF7EZczuIvHbUiwP6C+Ie
HgcBxdkXa3a/tvd23D7dJI3PQSD8S8nsu2+h7uN34Or1ldgF9LdSZ5zbxjMC
DhDff7AHAHCfjQs=
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$19085, {1}}]& ], 
       TagBox[{
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAQA2IQjQ4ut+utyJ950h6VfxPOv/dUaZ+w8WM0+Zdw/glN
q0mn/79HU/8Zzr+5TWOzY9o3+wY/uX7uyhZ7iP6f9gpLF9++UrnE/myEydy5
Z/7YK9Qd/BLFud0eYt5/+4C0yGbLqiP2iX/nH66Zyejw496lQMn/5+0h5jM7
CBiqTnqRes0++tzSHavOsDiwXDaocTlzxx5iH5sDg7qI0gOBh/Zh81evvfGf
3eFPTO7Rf0aPofZzOvyYdCxDNvSpfUDBxkVsxtwOX07I89iUP4e6h8fhw7+K
9VFAf3o7bp9uksbn8MbkUlDl7tdQ9/E7vMjS/jb97lt7pc44t41nBByeLGiZ
uQ0YDgCnzJJv
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$19085, {2}}]& ], 
       TagBox[{
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAQA2IQjQ4ut+utyJ950h6VfxPOv/dUaZ+w8WM0+Zdw/glN
q0mn/79HU/8Zzr+5TWOzY9o3NP0/4fyzESZz5575Y7/gGPfXr1vX2UPM+2/v
UVxcm2h02D7x7/zDNTMZHSzkjAMk/5+3h5jP7CBiqDrpReo1++hzS3esOsPi
wHTZoMblzB17iH1sDv/VRJQeCDy0D5u/eu2N/+wOv2Nyj/4zemwPsZ/T4fuk
YxmyoU/tAwo2LmIz5nb4fEKex6b8uT3EPTwO7/5VrI8C+tPbcft0kzQ+hxcm
l4Iqd7+Guo/f4UWW9rfpd9/aK3XGuW08I+DwYEHLzG3AcAAAkMWLVg==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$19085, {3}}]& ]}, {
       TagBox[{
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledDiamond]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.368417, 0.506779, 0.709798], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGAQA2JGIGZiwASX2/VW5M88aY/Kvwnn33uqtE/Y+DGa/Es4
/4Sm1aTT/9+jqf9s36BktMKvssX+5jaNzY5p3+wZ9h3J+Fa5xB6i/6f9BJkD
ciWc2+3PRpjMnXvmj33GPn4vr6oj9hDz/tsLODh46f0/b5/4d/7hmpmMDi1f
6/k+p16zh5jP7FAxvfuH35k79tHnlu5YdYbFQUX47oLHAg+h9rE5KHiauTAB
3R02f/XaG//ZHWTq+58rhD6F2s/pILX1RZd9+XP7gIKNi9iMuR1EXjvqxQH9
BXEPj4OA4uyLNbtf23s7bp9uksbnIBD+pWT23bdQ9/E7cPX6SuwC+lupM85t
4xkBB4jvP9gDAHp/jQ0=
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$19085, {1}}]& ], 
       TagBox[{
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledCircle]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.880722, 0.611041, 0.142051], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGAQA2JGIGZiwASX2/VW5M88aY/Kvwnn33uqtE/Y+DGa/Es4
/4Sm1aTT/9+jqf8M59/cprHZMe2bfYOfXD93ZYs9RP9Pe4Wli29fqVxifzbC
ZO7cM3/sFeoOfoni3G4PMe+/fUBaZLNl1RH7xL/zD9fMZHT4ce9SoOT/8/YQ
85kdBAxVJ71IvWYffW7pjlVnWBxYLhvUuJy5Yw+xj82BQV1E6YHAQ/uw+avX
3vjP7vAnJvfoP6PHUPs5HX5MOpYhG/rUPqBg4yI2Y26HLyfkeWzKn0Pdw+Pw
4V/F+iigP70dt083SeNzeGNyKahy92uo+/gdXmRpf5t+9629Umec28YzAg5P
FrTM3AYMBwCxrJJx
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$19085, {2}}]& ], 
       TagBox[{
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledSquare]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.560181, 0.691569, 0.194885], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGAQA2JGIGZiwASX2/VW5M88aY/Kvwnn33uqtE/Y+DGa/Es4
/4Sm1aTT/9+jqf8M59/cprHZMe0bmv6fcP7ZCJO5c8/8sV9wjPvr163r7CHm
/bf3KC6uTTQ6bJ/4d/7hmpmMDhZyxgGS/8/bQ8xndhAxVJ30IvWaffS5pTtW
nWFxYLpsUONy5o49xD42h/9qIkoPBB7ah81fvfbGf3aH3zG5R/8ZPbaH2M/p
8H3SsQzZ0Kf2AQUbF7EZczt8PiHPY1P+3B7iHh6Hd/8q1kcB/entuH26SRqf
wwuTS0GVu19D3cfv8CJL+9v0u2/tlTrj3DaeEXB4sKBl5jZgOAAAmqWLWA==

          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$19085, {
          3}}]& ]}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{True, None}, {True, None}}, FrameLabel -> {{
        FormBox[
         TagBox[
          StyleBox["\"\"", FontSize -> 13, Italic, StripOnInput -> False], 
          HoldForm], TraditionalForm], 
        FormBox[
         TagBox["All", HoldForm], TraditionalForm]}, {
        FormBox[
         TagBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(d\\), \\(^\\)], \
\\(2\\)]\\)\"", FontSize -> 13, Italic, StripOnInput -> False], HoldForm], 
         TraditionalForm], 
        FormBox[
         TagBox["All", HoldForm], TraditionalForm]}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], ImageSize -> {300, 200}, LabelStyle -> 
     Directive[FontFamily -> "Times", FontSize -> 13], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, PlotRange -> {{0, 4.199895}, {0, 1.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Pr[3 defaults | no subsidy]\"", 
       "\"Pr[3 defaults | \\!\\(\\*SubscriptBox[\\(u\\), \\(2\\)]\\)=0.2]\"", 
       "\"Pr[3 defaults | \\!\\(\\*SubscriptBox[\\(u\\), \\(3\\)]\\)=0.2]\"", 
       "None", "None", "None"}, "PointLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[FilledDiamond]", FontSize -> 12, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[FilledCircle]", FontSize -> 12, StripOnInput -> False],
                     TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[FilledSquare]", FontSize -> 12, StripOnInput -> False],
                     TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          Directive[FontFamily -> "Times", FontSize -> 13], FontFamily -> 
          "Arial"}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}]}], 
                 "}"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#4, ",", #5, ",", #6}], "}"}]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"\[FilledDiamond]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledCircle]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledSquare]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"\[FilledDiamond]", ",", "12"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledCircle]", ",", "12"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledSquare]", ",", "12"}], "}"}]}], "}"}]}], 
               "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.890652584407422*^9, 3.8906526118698883`*^9}, 
   3.8906526781186743`*^9, {3.8906527093973722`*^9, 3.89065273576654*^9}, 
   3.8906540531097393`*^9, 3.890741548300612*^9, 3.890741655036209*^9, 
   3.890814058784534*^9, 3.8910737962840843`*^9, 3.891073872586987*^9, 
   3.891093846392465*^9, 3.891094185646969*^9, 3.8910969544315023`*^9, 
   3.891427891348056*^9},
 CellLabel->
  "Out[118]=",ExpressionUUID->"79388f3d-ead4-4836-a3c1-7ebadd5b1f25"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, 
       TagBox[{
         Hue[0.67, 0.6, 0.6], 
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAQA2IQjQ4ut+utyJ950h6VfxPOv/dUaZ+w8WM0+Zdw/glN
q0mn/79HU//ZnqGgYFtWQoL9zW0amx3Tvtkn9J77a5w4wR6i/6f9hxe3v1Us
WW1/NsJk7twzf+xD2F4snpF4wB5i3n97iYPJhUf/nbdP/Dv/cM1MRoeWr/V8
n1Ov2UPMZ3aomN79w+/MHfvoc0t3rDrD4vA6btvPGfyPoPaxOUzmShVwPPTU
Pmz+6rU3/rM7nPFrDfB4/AJqP6fDDG3xXeuKXtsHFGxcxGbM7fBtgZRvScFb
qHt4HJ6v6+eceeedvbfj9ukmaXwOOaFl72W2v4e6j9+hacq5f/+B/lbqjHPb
eEbAAeL7D/YAmO6XFQ==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$19204, {1}}]& ], 
       TagBox[{
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAQA2IQjQ4ut+utyJ950h6VfxPOv/dUaZ+w8WM0+Zdw/glN
q0mn/79HU/8Zzr+5TWOzY9o3e4ad3qZSCQn2EP0/7RXSL+7mTpxgfzbCZO7c
M3/sBQTE13gvWW0PMe+/vc/+vqaWxAP2iX/nH66Zyeiw5qX236X/zttDzGd2
EDBUnfQi9Zp99LmlO1adYXFguWxQ43Lmjj3EPjaHkGexxZP4H9mHzV+99sZ/
dof9rMsrrA89hdrP6bB3b+Jy58cv7AMKNi5iM+Z28OXr+7+q6DXUPTwOBd+1
GwsL3tp7O26fbpLG56BWaa0z/c47qPv4HfIn72GQ2f7eXqkzzm3jGQEHL7f1
//4DwwEAWCqO6w==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$19204, {2}}]& ], 
       TagBox[{
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAQA2IQjQ4ut+utyJ950h6VfxPOv/dUaZ+w8WM0+Zdw/glN
q0mn/79HU/8Zzr+5TWOzY9o3NP0/4fyzESZz5575Y/9g2o9/ZhNX2EPM+28v
wsY0TcnosH3i3/mHa2YyOljIGQdI/j9vDzGf2UHEUHXSi9Rr9tHnlu5YdYbF
gemyQY3LmTv2EPvYHEKexRZP4n9kHzZ/9dob/9kd9rEur7A+9NQeYj+nw569
icudH7+wDyjYuIjNmNvBl6/v/6qi1/YQ9/A4FHzXbiwseGvv7bh9ukkan4Na
pbXO9DvvoO7jd8ifvIdBZvt7e6XOOLeNZwQcvNzW//sPDAcAZU2HQw==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$19204, {3}}]& ]}, {
       TagBox[{
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledDiamond]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.368417, 0.506779, 0.709798], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGAQA2JGIGZiwASX2/VW5M88aY/Kvwnn33uqtE/Y+DGa/Es4
/4Sm1aTT/9+jqf9sz1BQsC0rIcH+5jaNzY5p3+wTes/9NU6cYA/R/9P+w4vb
3yqWrLY/G2Eyd+6ZP/YhbC8Wz0g8YA8x77+9xMHkwqP/ztsn/p1/uGYmo0PL
13q+z6nX7CHmMztUTO/+4Xfmjn30uaU7Vp1hcXgdt+3nDP5HUPvYHCZzpQo4
HnpqHzZ/9dob/9kdzvi1Bng8fgG1n9Nhhrb4rnVFr+0DCjYuYjPmdvi2QMq3
pOAt1D08Ds/X9XPOvPPO3ttx+3STND6HnNCy9zLb30Pdx+/QNOXcv/9Afyt1
xrltPCPgAPH9B3sAos6XFw==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$19204, {1}}]& ], 
       TagBox[{
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledCircle]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.880722, 0.611041, 0.142051], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGAQA2JGIGZiwASX2/VW5M88aY/Kvwnn33uqtE/Y+DGa/Es4
/4Sm1aTT/9+jqf8M59/cprHZMe2bPcNOb1OphAR7iP6f9grpF3dzJ06wPxth
MnfumT/2AgLia7yXrLaHmPff3md/X1NL4gH7xL/zD9fMZHRY81L779J/5+0h
5jM7CBiqTnqRes0++tzSHavOsDiwXDaocTlzxx5iH5tDyLPY4kn8j+zD5q9e
e+M/u8N+1uUV1oeeQu3ndNi7N3G58+MX9gEFGxexGXM7+PL1/V9V9BrqHh6H
gu/ajYUFb+29HbdPN0njc1CrtNaZfucd1H38DvmT9zDIbH9vr9QZ57bxjICD
l9v6f/+B4QAAYgqO7Q==
          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$19204, {2}}]& ], 
       TagBox[{
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[2.2], 
          PointSize[0.025]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledSquare]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  RGBColor[0.560181, 0.691569, 0.194885], 
                  AbsoluteThickness[2.2], 
                  PointSize[0.025]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[12]], CompressedData["
1:eJxTTMoPSmVmYGAQA2JGIGZiwASX2/VW5M88aY/Kvwnn33uqtE/Y+DGa/Es4
/4Sm1aTT/9+jqf8M59/cprHZMe0bmv6fcP7ZCJO5c8/8sX8w7cc/s4kr7CHm
/bcXYWOapmR02D7x7/zDNTMZHSzkjAMk/5+3h5jP7CBiqDrpReo1++hzS3es
OsPiwHTZoMblzB17iH1sDiHPYosn8T+yD5u/eu2N/+wO+1iXV1gfemoPsZ/T
Yc/exOXOj1/YBxRsXMRmzO3gy9f3f1XRa3uIe3gcCr5rNxYWvLX3dtw+3SSN
z0Gt0lpn+p13UPfxO+RP3sMgs/29vVJnnNvGMwIOXm7r//0HhgMAby2HRQ==

          "]]}, 
        Annotation[#, {{Legended}, Charting`Private`Tag$19204, {
          3}}]& ]}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{True, None}, {True, None}}, FrameLabel -> {{
        FormBox[
         TagBox[
          StyleBox["\"\"", FontSize -> 13, Italic, StripOnInput -> False], 
          HoldForm], TraditionalForm], 
        FormBox[
         TagBox["All", HoldForm], TraditionalForm]}, {
        FormBox[
         TagBox[
          StyleBox[
          "\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(d\\), \\(^\\)], \
\\(2\\)]\\)\"", FontSize -> 13, Italic, StripOnInput -> False], HoldForm], 
         TraditionalForm], 
        FormBox[
         TagBox["All", HoldForm], TraditionalForm]}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], ImageSize -> {300, 200}, LabelStyle -> 
     Directive[FontFamily -> "Times", FontSize -> 13], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, PlotRange -> {{0, 4.199895}, {0, 1.}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Pr[2 defaults | no subsidy]\"", 
       "\"Pr[2 defaults | \\!\\(\\*SubscriptBox[\\(u\\), \\(2\\)]\\)=0.2]\"", 
       "\"Pr[2 defaults | \\!\\(\\*SubscriptBox[\\(u\\), \\(3\\)]\\)=0.2]\"", 
       "None", "None", "None"}, "PointLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[FilledDiamond]", FontSize -> 12, StripOnInput -> 
                    False], TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[FilledCircle]", FontSize -> 12, StripOnInput -> False],
                     TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    LineBox[{{0, 12}, {20, 12}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[2.2], 
                    PointSize[0.5]], {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\[FilledSquare]", FontSize -> 12, StripOnInput -> False],
                     TraditionalForm], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 12}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.16666666666666669`] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          Directive[FontFamily -> "Times", FontSize -> 13], FontFamily -> 
          "Arial"}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "2.2`", "]"}], ",", 
                    RowBox[{"PointSize", "[", "0.025`", "]"}]}], "]"}]}], 
                 "}"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#4, ",", #5, ",", #6}], "}"}]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"\[FilledDiamond]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledCircle]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledSquare]", ",", 
                    RowBox[{"Offset", "[", "12", "]"}]}], "}"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"\[FilledDiamond]", ",", "12"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledCircle]", ",", "12"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\[FilledSquare]", ",", "12"}], "}"}]}], "}"}]}], 
               "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"True", ",", "True", ",", "True"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "13"}]}], "]"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.890652584407422*^9, 3.8906526118698883`*^9}, 
   3.8906526781186743`*^9, {3.8906527093973722`*^9, 3.89065273576654*^9}, 
   3.8906540531097393`*^9, 3.890741548300612*^9, 3.890741655036209*^9, 
   3.890814058784534*^9, 3.8910737962840843`*^9, 3.891073872586987*^9, 
   3.891093846392465*^9, 3.891094185646969*^9, 3.8910969544315023`*^9, 
   3.891427891395804*^9},
 CellLabel->
  "Out[119]=",ExpressionUUID->"8c917a71-07f8-4fae-a80f-57a3e49004f2"]
}, Open  ]]
},
WindowSize->{1212, 985},
WindowMargins->{{Automatic, 219}, {Automatic, 0}},
FrontEndVersion->"13.1 for Mac OS X ARM (64-bit) (June 16, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"17b431e6-8c8b-4f45-ba43-36790037113e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 10546, 272, 891, "Input",ExpressionUUID->"a98e5ee5-2c33-4027-a204-8cba4f3d2bd5"],
Cell[11129, 296, 2523, 65, 217, "Output",ExpressionUUID->"599dde3e-af08-4478-bd7c-c011d3af0ba5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13689, 366, 9304, 236, 802, "Input",ExpressionUUID->"6be496f7-c564-497c-a1cc-dcadc5016a2c"],
Cell[22996, 604, 22217, 503, 219, "Output",ExpressionUUID->"72fa7382-4ff0-4797-b8df-b8ef2844722a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45250, 1112, 27371, 748, 1608, "Input",ExpressionUUID->"d75517aa-2825-4d67-b122-28bc75cf94c3"],
Cell[72624, 1862, 22957, 517, 242, "Output",ExpressionUUID->"c8abb588-973c-488b-a955-cd895d06f16b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95618, 2384, 23422, 596, 1575, "Input",ExpressionUUID->"1cc747a4-2f4e-4719-b4e6-be7ab6b4899a"],
Cell[119043, 2982, 4995, 107, 217, "Output",ExpressionUUID->"fb5f7ef8-3838-4450-b1bc-84d2ed042614"],
Cell[124041, 3091, 5548, 113, 217, "Output",ExpressionUUID->"1bf3b0ec-2496-43c3-9934-450bc97cedb6"],
Cell[129592, 3206, 6622, 134, 217, "Output",ExpressionUUID->"9a8ef6d5-4483-48c9-b1ce-86ea5120faeb"],
Cell[136217, 3342, 10516, 200, 240, "Output",ExpressionUUID->"847c0921-8535-432a-9a31-3ea83ad7e126"]
}, Open  ]],
Cell[CellGroupData[{
Cell[146770, 3547, 43637, 1126, 3231, "Input",ExpressionUUID->"dbd24a9d-c358-4457-91f4-14dd44c156a5"],
Cell[190410, 4675, 18715, 422, 219, "Output",ExpressionUUID->"79388f3d-ead4-4836-a3c1-7ebadd5b1f25"],
Cell[209128, 5099, 18731, 422, 242, "Output",ExpressionUUID->"8c917a71-07f8-4fae-a80f-57a3e49004f2"]
}, Open  ]]
}
]
*)

